xmonad.hs

import XMonad
import XMonad.Hooks.DynamicLog

import qualified Data.Map as M

myStatusBar = "xmobar"

myStatusBarPP = xmobarPP
                  { ppCurrent = xmobarColor "#429942" "" . wrap "<" ">" }

-- Key binding to toggle the gap for the bar.
toggleStrutsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b)

myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
  [ -- Screenshot key bindings
    --take a screenshot of entire display
    ((modMask, xK_Print ), spawn "scrot screen_%Y-%m-%d-%H-%M-%S.png -d 1")

    --take a screenshot of focused window
  , ((modMask .|. controlMask, xK_Print ), spawn "scrot window_%Y-%m-%d-%H-%M-%S.png -d 1-u")
  ]

myConfig = def
        { terminal = "urxvt"
	, modMask = mod4Mask
	}

main = xmonad =<< statusBar myStatusBar myStatusBarPP toggleStrutsKey myConfig