I ended with this, but failed when I tried to turn my enumeration into comprehension… import XMonad import XMonad.Config.Gnome import XMonad.Actions.CycleWS import XMonad.Util.EZConfig import qualified XMonad.StackSet as S main = do xmonad $ gnomeConfig { modMask = mod4Mask } `additionalKeys` [ ((mod4Mask, xK_Left ), prevWS ) , ((mod4Mask, xK_Right ), nextWS ) , ((mod4Mask .|. shiftMask, xK_Left ), shiftToPrev ) , ((mod4Mask .|. shiftMask, xK_Right ), shiftToNext ) , ((mod4Mask , xK_F1 ), windows $ S.greedyView "1") , ((mod4Mask , xK_F2 ), windows $ S.greedyView "2") , ((mod4Mask , xK_F3 ), windows $ S.greedyView "3") , ((mod4Mask , xK_F4 ), windows $ S.greedyView "4") , ((mod4Mask , xK_F5 ), windows $ S.greedyView "5") , ((mod4Mask , xK_F6 ), windows $ S.greedyView "6") , ((mod4Mask , xK_F7 ), windows $ S.greedyView "7") , ((mod4Mask , xK_F8 ), windows $ S.greedyView "8") , ((mod4Mask , xK_F9 ), windows $ S.greedyView "9") , ((mod4Mask .|. shiftMask, xK_F1 ), windows $ S.shift "1") , ((mod4Mask .|. shiftMask, xK_F2 ), windows $ S.shift "2") , ((mod4Mask .|. shiftMask, xK_F3 ), windows $ S.shift "3") , ((mod4Mask .|. shiftMask, xK_F4 ), windows $ S.shift "4") , ((mod4Mask .|. shiftMask, xK_F5 ), windows $ S.shift "5") , ((mod4Mask .|. shiftMask, xK_F6 ), windows $ S.shift "6") , ((mod4Mask .|. shiftMask, xK_F7 ), windows $ S.shift "7") , ((mod4Mask .|. shiftMask, xK_F8 ), windows $ S.shift "8") , ((mod4Mask .|. shiftMask, xK_F9 ), windows $ S.shift "9") ] Salutations Matt