xmonad.hs

import XMonad
import XMonad.Config.Gnome
import qualified XMonad.StackSet as W
import XMonad.Util.EZConfig
 
myManageHook =
  composeAll [
    resource =? "Do" --> doIgnore,
    resource =? "key-mon" --> doIgnore
  ]

myWorkspaces = ["firefox","thunderbird","pidgin","four","five","six","seven","eight","nine"]

main = xmonad $ gnomeConfig
  { manageHook = manageHook gnomeConfig <+> myManageHook
    , workspaces = myWorkspaces
    , modMask = mod4Mask
    , borderWidth = 2
	 , terminal = "urxvt"
  }
  `additionalKeysP`
  (
    [
      ("M-<Space>", spawn "gnome-do" )
      , ("M-n", sendMessage NextLayout )
    ]
    ++ -- important since ff. is a list itself, can't just put inside above list
    [(otherModMasks ++ "M-" ++ [key], action tag)
      | (tag, key)  <- zip myWorkspaces "zuiop6789"
        , (otherModMasks, action) <- [("", windows . W.view) -- was W.greedyView
                                  , ("S-", windows . W.shift)]
    ]
  )