diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-11-20 17:48:11 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-11-20 17:48:11 -0700 |
| commit | e2478cd63346b267572943c274d75d801ecd3301 (patch) | |
| tree | 8122a67ae180dbae7637d4af4891959cbcab1e13 /src/Rahm/Desktop/Keys.hs | |
| parent | d3d67d059d2b56ceac63cebaa34802f2fb5a5019 (diff) | |
| download | rde-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/Keys.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 4 |
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 $ |