From: James Bunton <jbunton@atlassian.com>
Date: Tue, 5 Jun 2018 13:31:39 +0000 (+1000)
Subject: xmonad: fix screen switching keybindings
X-Git-Url: https://code.delx.au/dotfiles/commitdiff_plain/b28a9f3fdcab2af3dccec7a24dbbfd099e2182d0

xmonad: fix screen switching keybindings
---

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 2798d9d..05989b5 100644
--- 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
-    [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
+    [((m .|. modm, key), f sc)
         | (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