From 7c16c50990492f9e6cc2477f8284dc1a2f33d946 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Tue, 12 Dec 2023 11:39:56 -0700 Subject: Make button 15 escape from the window selection submode --- src/Rahm/Desktop/Keys.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'src') 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 -- cgit