diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-10 08:47:14 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-10 08:47:14 +0200 |
commit | 6e231ff7825e1d8120a6f3896418b3840024a040 (patch) | |
tree | 70e5fc8c8ba8726da33fade7dea922ad3e867a53 /Config.hs | |
parent | fabdf6a026b61e0602c86a7402dfafa47a9c2154 (diff) | |
download | metatile-6e231ff7825e1d8120a6f3896418b3840024a040.tar metatile-6e231ff7825e1d8120a6f3896418b3840024a040.zip |
Move workspace fetching logic from Config.hs to Operations.hs
darcs-hash:20070410064714-a5988-e9b1fac201a546d1722db41213efc81223007e43
Diffstat (limited to 'Config.hs')
-rw-r--r-- | Config.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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), gets workspace >>= f . (+1) . fromMaybe 0 . W.workspace sc) + [((m .|. modMask, key), screenWorkspace sc >>= f) | (key, sc) <- zip [xK_s, xK_d, xK_f] [0..] , (f, m) <- [(view, 0), (tag, shiftMask)]] |