xmonad.hs

import XMonad
import XMonad.Config.Gnome
import qualified XMonad.StackSet as W
import XMonad.Util.EZConfig

main = xmonad $ gnomeConfig
        { manageHook = manageHook gnomeConfig
        , logHook    = logHook gnomeConfig
        , modMask    = mod3Mask
        } `additionalKeysP` screenKeys

screenKeys = [
 (mask ++ "M-" ++ [key], screenWorkspace scr >>= flip whenJust (windows . action))
     | (key, scr)     <- zip "wer" [1,0,2]
     , (action, mask) <- [(W.view, "") , (W.shift, "S-")]
 ]