simple xmonad config

xmonad.hs

-- Max DeLiso
-- xmonad config

import XMonad
import XMonad.Hooks.DynamicLog
import qualified Data.Map as M

main = xmonad =<< xmobar defaultConfig {
                      modMask = mod4Mask
                    , terminal = "urxvt"
                    , borderWidth = 3
                    , keys = \c -> mykeys c `M.union` keys defaultConfig c
                    }
                    where
                      mykeys (XConfig {modMask = modm}) = M.fromList $
                        [ ((modm , xK_x), spawn "xscreensaver-command -lock") ]