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

main = xmonad $ gnomeConfig
        { workspaces = myWorkspaces,
	borderWidth        = 3
        , normalBorderColor  = "#cccccc"
        , focusedBorderColor = "#cd8b00"
	}
	`additionalKeysP` myKeys
	`removeKeysP` ["M-b"]		
	
myWorkspaces = ["1","2","3","4","5","6","7","8","9"]


myKeys =
    [
    -- other additional keys
    ("M-<Tab>", nextWS),
    ("M-S-<Tab>", prevWS)
    ]
    ++ -- important since ff. is a list itself, can't just put inside above list
    [ (otherModMasks ++ "M-" ++ [key], action tag)
         | (tag, key)  <- zip myWorkspaces "123456789"
         , (otherModMasks, action) <- [ ("", windows . W.view) -- was W.greedyView
                                      , ("S-", windows . W.shift)]
    ]