gistfile1.txt

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/klr/.xmobarrc"
        xmonad $ defaultConfig
                { terminal      = "urxvt"
                , modMask       = mod1Mask
                , borderWidth   = 2
                , manageHook    = manageDocks <+> manageHook defaultConfig
                , layoutHook    = avoidStruts  $  layoutHook defaultConfig
                , logHook       = dynamicLogWithPP xmobarPP
                                        { ppOutput = hPutStrLn xmproc
                                        , ppTitle  = xmobarColor "green" "" .shorten 50
                                        }
                } `additionalKeys`
                [ ((mod4Mask .|. shiftMask, xK_w), spawn "chromium")
                , ((mod4Mask .|. shiftMask, xK_e), spawn "gimp")
                ]