diff options
| author | Josh Rahm <rahm@google.com> | 2023-12-12 11:39:56 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2023-12-12 11:39:56 -0700 |
| commit | 7c16c50990492f9e6cc2477f8284dc1a2f33d946 (patch) | |
| tree | 008eaf1d49b7cf68e4d8a54e4acfcd89d1e822ef | |
| parent | ae329e52be569ca83774fb1698a1a4c47015f5e3 (diff) | |
| download | rde-7c16c50990492f9e6cc2477f8284dc1a2f33d946.tar.gz rde-7c16c50990492f9e6cc2477f8284dc1a2f33d946.tar.bz2 rde-7c16c50990492f9e6cc2477f8284dc1a2f33d946.zip | |
Make button 15 escape from the window selection submode
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index ea2cde4..2cc3d79 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -1206,7 +1206,7 @@ mouseMap = runButtons $ do "add the window under the cursor to the window selection" toggleWindowInSelection - bind button2 $ + bind button15 $ noMod $ doc "Clear the window selection" $ noWindow (clearWindowSelection >> escape) @@ -1215,8 +1215,7 @@ mouseMap = runButtons $ do noMod $ doc "Kill the windows in the selection" $ noWindow $ do - windows <- getAndResetWindowSelection - forM_ windows X.killWindow + mapM_ X.killWindow =<< getAndResetWindowSelection escape bind button14 $ @@ -1252,8 +1251,6 @@ mouseMap = runButtons $ do ) in windows f >> escape - bind button15 $ noMod $ doc "" $ noWindow (return () :: X ()) - forM_ [(button7, ",.", "right"), (button6, ";.", "left")] $ \(b, mot, d) -> do bind b |