From 2ae347bd4b8e945d6c1bfa94032e02aba7861a18 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Sun, 26 Nov 2023 13:06:17 -0700 Subject: Make a couple mouse bindings nicer. 1. Change swap windows to be button13 + mousewheel instead of mouse wheel buttons 2. Change the history double-tap button to focus the window under the cursor before going back. --- src/Rahm/Desktop/Keys.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Rahm/Desktop/Keys.hs') diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index c34e0ee..518977e 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -933,11 +933,11 @@ mouseMap = runButtons $ do doc "Resize the window under the cursor" mouseResizeWindow let swapButtons = - [ ( button6, + [ ( button4, "Swap the current window with the next one in the stack", noWindow $ windows W.swapDown ), - ( button7, + ( button5, "Swap the current window with the last one in the stack", noWindow $ windows W.swapUp ) @@ -976,7 +976,7 @@ mouseMap = runButtons $ do bind button15 $ do noMod $ doc "Jump to the last location." $ - noWindow jumpToLastLocation + noWindow (click >> jumpToLastLocation) let workspaceButtons = [ ( button2, -- cgit