Xmonad: Add initial configuration
1 file changed, 19 insertions(+), 0 deletions(-)
jump to
A tag-xmonad/xmonad/xmonad.hs
@@ -0,0 +1,19 @@ +import XMonad +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageDocks +import XMonad.Util.Run(spawnPipe) +import XMonad.Util.EZConfig(additionalKeys) +import System.IO + +main = do + xmproc <-spawnPipe "/usr/bin/xmobar /home/alan/.xmobarrc" + xmonad $ defaultConfig { + manageHook = manageDocks <+> manageHook defaultConfig, + layoutHook = avoidStruts $ layoutHook defaultConfig, + logHook = dynamicLogWithPP xmobarPP { + ppOutput = hPutStrLn xmproc, + ppTitle = xmobarColor "green" "" . shorten 50 + }, + terminal = "urxvt", + modMask = mod4Mask + }