moved screen <-> workspace mapping from XMonad to StackSet

This commit is contained in:
Jason Creighton
2007-04-10 06:27:31 +00:00
parent 90547f9e21
commit 0c95f0c143
6 changed files with 79 additions and 59 deletions

View File

@@ -136,7 +136,7 @@ keys = M.fromList $
-- Keybindings to each screen :
-- mod-wer (underneath 123) switches to physical/Xinerama screens 1 2 and 3
++
[((m .|. modMask, key), screenWS sc >>= f)
| (key, sc) <- zip [xK_w, xK_e, xK_r] [1..]
[((m .|. modMask, key), gets workspace >>= f . (+1) . fromMaybe 0 . W.workspace sc)
| (key, sc) <- zip [xK_s, xK_d, xK_f] [0..]
, (f, m) <- [(view, 0), (tag, shiftMask)]]