Refactor in Config.hs (no real changes)

This commit is contained in:
Spencer Janssen
2007-04-26 21:14:07 +00:00
parent c03b53db67
commit bd41b81c16

View File

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