aboutsummaryrefslogtreecommitdiffstats
path: root/Config.hs
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-04-26 23:22:57 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-04-26 23:22:57 +0200
commit7031e8bdfb1a82444d64f45d02eda6e183018e4c (patch)
tree2a6beeae9dc1e40a8771551d0faecd7282e2c62e /Config.hs
parent4e3124ade00100e108f451be010068746a910c88 (diff)
downloadxmonad-7031e8bdfb1a82444d64f45d02eda6e183018e4c.tar.gz
xmonad-7031e8bdfb1a82444d64f45d02eda6e183018e4c.tar.xz
xmonad-7031e8bdfb1a82444d64f45d02eda6e183018e4c.zip
Further refactoring
darcs-hash:20070426212257-a5988-dc5cc91918a152728de05a7f6c39d209d81c5b04.gz
Diffstat (limited to '')
-rw-r--r--Config.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Config.hs b/Config.hs
index 2adc0d7..9f7a48a 100644
--- a/Config.hs
+++ b/Config.hs
@@ -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 :