Further refactoring

This commit is contained in:
Spencer Janssen
2007-04-26 21:22:57 +00:00
parent bd41b81c16
commit 0dd75f9d68

View File

@@ -139,8 +139,8 @@ keys = M.fromList $
] ++
-- Keybindings to get to each workspace:
[((m .|. modMask, k), f (fromIntegral (pred i))) -- index from 0.
| (i, k) <- zip [1 .. workspaces] [xK_1 ..]
[((m .|. modMask, k), f i)
| (i, k) <- zip [0 .. fromIntegral workspaces - 1] [xK_1 ..]
, (f, m) <- [(view, 0), (tag, shiftMask)]]
-- Keybindings to each screen :