import XMonad
import XMonad.Core
import XMonad.Config.Gnome
import XMonad.Util.EZConfig
import XMonad.Actions.CycleWS -- for prevWS and nextWS
import XMonad.Hooks.ManageDocks
import qualified XMonad.StackSet as W
import qualified Data.Map        as M

myScreenLock = "/usr/bin/gnome-screensaver-command -l"
myRunCommand = "/usr/bin/gmrun"
myModMask    = mod4Mask

main = xmonad $ gnomeConfig { modMask = myModMask }
              `additionalKeysP`
              [ ("M-S-l",      spawn $ myScreenLock )
              , ("C-<KP_F2>",  spawn $ myRunCommand )
              , ("M1-<Tab>",   windows W.focusDown )
              , ("M1-S-<Tab>", windows W.focusUp )
              , ("M-<Left>",   prevWS )
              , ("M-<Right>",  nextWS )
              ]