diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-26 23:22:57 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-26 23:22:57 +0200 |
| commit | 2552e8eae7464d44363f89ce8faa318e3fdd5de5 (patch) | |
| tree | 2a6beeae9dc1e40a8771551d0faecd7282e2c62e /Config.hs | |
| parent | 9aa3dda0e33560ca4fb4a93ce1d7b3a1c49d6357 (diff) | |
| download | metatile-2552e8eae7464d44363f89ce8faa318e3fdd5de5.tar metatile-2552e8eae7464d44363f89ce8faa318e3fdd5de5.zip | |
Further refactoring
darcs-hash:20070426212257-a5988-dc5cc91918a152728de05a7f6c39d209d81c5b04
Diffstat (limited to 'Config.hs')
| -rw-r--r-- | Config.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 : |