xmonad.hs

import XMonad
import XMonad.Config.Gnome
import XMonad.Util.EZConfig
import XMonad.Hooks.ManageHelpers (isFullscreen,doFullFloat)

import qualified XMonad.StackSet as W

myWorkspaces = ["1","2","3","4","5","6","7","8","9"]

main = xmonad $ gnomeConfig
        { workspaces = myWorkspaces
        , modMask = mod4Mask -- set the mod key to the windows key
        , manageHook = composeAll
            [ manageHook gnomeConfig
--                , title =? "foo" --> doShift "2"
--                , isFullscreen --> doFullFloat
            ]
        } `additionalKeysP` myKeys


myKeys = [
 
    -- other additional keys
 
    ] ++ 
    [ (otherModMasks ++ "M-" ++ [key], action tag)
      | (tag, key)  <- zip myWorkspaces "123456789"
      , (otherModMasks, action) <- [ ("", windows . W.view) -- was W.greedyView
                                      , ("S-", windows . W.shift)]
    ]