Fix new bug in screen switching

This commit is contained in:
Spencer Janssen
2007-08-16 21:56:29 +00:00
parent 6a273c2afa
commit ca0d87664b

View File

@@ -22,6 +22,7 @@ module Config where
-- --
import XMonad import XMonad
import Operations import Operations
import qualified StackSet as W
import Data.Ratio import Data.Ratio
import Data.Bits ((.|.)) import Data.Bits ((.|.))
import qualified Data.Map as M import qualified Data.Map as M
@@ -165,7 +166,7 @@ keys = M.fromList $
++ ++
[((m .|. modMask, key), screenWorkspace sc >>= flip whenJust f) [((m .|. modMask, key), screenWorkspace sc >>= flip whenJust f)
| (key, sc) <- zip [xK_w, xK_e, xK_r] [0..] | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
, (f, m) <- [(view, 0), (shift, shiftMask)]] , (f, m) <- [(windows . W.view, 0), (shift, shiftMask)]]
-- | -- |
-- default actions bound to mouse events -- default actions bound to mouse events