diff options
Diffstat (limited to 'src')
| -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 |