Updated the screen layout

This commit is contained in:
Serĉanto de Scio 2017-08-29 20:26:56 +10:00
parent dfad582345
commit 952b0536cc
No known key found for this signature in database
GPG key ID: B41FA6FF04CE4B93

View file

@ -1,4 +1,5 @@
import XMonad import XMonad
import XMonad.Config.Desktop
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe) import XMonad.Util.Run(spawnPipe)
@ -8,11 +9,11 @@ import System.IO
main = do main = do
xmproc <- spawnPipe "/usr/bin/xmobar /home/craige/.xmobarrc" xmproc <- spawnPipe "/usr/bin/xmobar /home/craige/.xmobarrc"
-- Launch xmobar as my task bar. -- Launch xmobar as my task bar.
xmonad $ defaultConfig xmonad $ desktopConfig
{ focusFollowsMouse = False { focusFollowsMouse = False
, terminal = "terminology" , terminal = "terminology"
, manageHook = manageDocks <+> manageHook defaultConfig , manageHook = manageDocks <+> manageHook desktopConfig
, layoutHook = avoidStruts $ layoutHook defaultConfig , layoutHook = avoidStruts $ layoutHook desktopConfig
, logHook = dynamicLogWithPP $ xmobarPP , logHook = dynamicLogWithPP $ xmobarPP
{ ppOutput = hPutStrLn xmproc { ppOutput = hPutStrLn xmproc
, ppCurrent = xmobarColor "#859900" "" . wrap "[" "]" , ppCurrent = xmobarColor "#859900" "" . wrap "[" "]"
@ -48,7 +49,7 @@ main = do
-- Turn on the HDMI port and set it as the primary display -- Turn on the HDMI port and set it as the primary display
, ((mod4Mask .|. shiftMask, xK_h), spawn , ((mod4Mask .|. shiftMask, xK_h), spawn
" /usr/bin/xrandr --output LVDS-1 --primary --auto --output \ " /usr/bin/xrandr --output LVDS-1 --primary --auto --output \
\ HDMI-1 --left-of LVDS-1 --auto" \ HDMI-1 --right-of LVDS-1 --auto"
) )
-- Turn off the VGA port -- Turn off the VGA port
, ((mod4Mask, xK_v), spawn "/usr/bin/xrandr --output VGA-1 --off") , ((mod4Mask, xK_v), spawn "/usr/bin/xrandr --output VGA-1 --off")