xmonad: fix screen switching keybindings

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 2798d9d3ab26c6e4e12c6852070770709c35c6c7..05989b5e28631c5e1ce1539bdcdda5d2e1aea4e2 100644 (file)
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -59,9 +59,9 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
 
     -- mod-{o,e,u}, Switch to physical/Xinerama screens 1, 2, or 3
     -- mod-shift-{o,e,u}, Move client to screen 1, 2, or 3
 
     -- mod-{o,e,u}, Switch to physical/Xinerama screens 1, 2, or 3
     -- mod-shift-{o,e,u}, Move client to screen 1, 2, or 3

-    [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
+    [((m .|. modm, key), f sc)

         | (key, sc) <- zip [xK_o, xK_e, xK_u] [0..]
         | (key, sc) <- zip [xK_o, xK_e, xK_u] [0..]

-        , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
+        , (f, m) <- [(viewScreen def, 0), (sendToScreen def, shiftMask)]]

     ++
 
     -- mod-[1..9], Switch to workspace N
     ++
 
     -- mod-[1..9], Switch to workspace N