Xmonad config

xmonad.hs

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/pimeys/.xmobarrc"
    xmonad $ defaultConfig
        { manageHook = manageDocks
                        <+> manageHook defaultConfig
        , layoutHook = avoidStruts  $  layoutHook defaultConfig
        , terminal = "urxvt +sb -vb"
        , logHook = dynamicLogWithPP xmobarPP
                        { ppOutput = hPutStrLn xmproc
                        , ppTitle = xmobarColor "green" "" . shorten 50
                        }
        , modMask = mod4Mask
        } `additionalKeys`
        [ 
          ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock") -- meta shift z 
        , ((mod4Mask .|. shiftMask, xK_a), spawn "gvim ~/code/ruby") -- meta shift z 
        , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") -- print --> screenshot
        , ((mod4Mask, xK_i), spawn "amixer -c 1 sset Master 0")
        , ((mod4Mask, xK_u), spawn "amixer -c 1 sset Master 1dB-")
        , ((mod4Mask, xK_o), spawn "amixer -c 1 sset Master 1dB")
        , ((mod4Mask, xK_p), spawn "/usr/bin/dmenu_run")
        ]