[((m .|. mod4Mask, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_1 .. xK_9]
, (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
main = xmonad $ defaultConfig
[((m .|. mod4Mask, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_1 .. xK_9]
, (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
main = xmonad $ defaultConfig