aboutsummaryrefslogtreecommitdiff
path: root/src/Rahm/Desktop
diff options
context:
space:
mode:
authorJosh Rahm <joshuarahm@gmail.com>2022-11-20 17:48:11 -0700
committerJosh Rahm <joshuarahm@gmail.com>2022-11-20 17:48:11 -0700
commite2478cd63346b267572943c274d75d801ecd3301 (patch)
tree8122a67ae180dbae7637d4af4891959cbcab1e13 /src/Rahm/Desktop
parentd3d67d059d2b56ceac63cebaa34802f2fb5a5019 (diff)
downloadrde-e2478cd63346b267572943c274d75d801ecd3301.tar.gz
rde-e2478cd63346b267572943c274d75d801ecd3301.tar.bz2
rde-e2478cd63346b267572943c274d75d801ecd3301.zip
Rebind theater selection to M-S-g instead of M-C-g.
Diffstat (limited to 'src/Rahm/Desktop')
-rw-r--r--src/Rahm/Desktop/Keys.hs4
1 files changed, 2 insertions, 2 deletions
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 $