From 23dfddad5fdf53e8da332ce9730afb7f11e7c21b Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 7 Feb 2020 15:27:52 -0700
Subject: Add keys to shift betweev Xinerama screens

---
 src/Internal/Keys.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/Internal/Keys.hs')

diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index c1d1c70..d04fc42 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -62,6 +62,10 @@ newKeys =
                   then t
                   else printf "%s - %s" a t
 
+          screenJump fn n = do
+            saveLastMark markContext
+            flip whenJust (windows . fn) =<< screenWorkspace n
+
           windowJump = do
               windowTitlesToWinId <- withWindowSet $ \ss ->
                 Map.fromList <$>
@@ -118,6 +122,14 @@ newKeys =
 
         , ((modm, xK_Tab), windows W.focusDown)
         , ((modm .|. shiftMask, xK_Tab), windows W.focusUp)
+
+        , ((modm, xK_a), screenJump W.view 2)
+        , ((modm, xK_o), screenJump W.view 0)
+        , ((modm, xK_e), screenJump W.view 1)
+
+        , ((modm .|. shiftMask, xK_a), screenJump W.shift 2)
+        , ((modm .|. shiftMask, xK_o), screenJump W.shift 0)
+        , ((modm .|. shiftMask, xK_e), screenJump W.shift 1)
         ]
 
 mapNumbersAndAlpha :: KeyMask -> (Char -> X ()) -> Map (KeyMask, KeySym) (X ())
-- 
cgit