From e2478cd63346b267572943c274d75d801ecd3301 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 20 Nov 2022 17:48:11 -0700
Subject: Rebind theater selection to M-S-g instead of M-C-g.

---
 src/Rahm/Desktop/Keys.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index 556b318..b875b9d 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -283,7 +283,7 @@ keymap = runKeys $ do
          \F1: display this help.\n\n\t" $
       runMaybeT_ $ (lift . gotoWorkspaceFn) =<< readNextWorkspace
 
-    shiftMod $
+    controlMod $
       doc "Restore the desktop marked with the next typed character." $
       runMaybeT_ $ do
         mapNextString $ \_ str -> lift $
@@ -297,7 +297,7 @@ keymap = runKeys $ do
     --     lift . windows . uncurry W.swapWorkspaces =<<
     --       (,) <$> readNextWorkspaceName <*> readNextWorkspaceName
 
-    controlMod $
+    shiftMod $
       doc "Restore a theater state" $
       runMaybeT_ $ do
         mapNextString $ \_ str -> lift $
-- 
cgit