[xmonad] Basic configuration : Config.Gnome + some more keys

[Matthieu Dubuget]

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