diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2023-11-26 13:06:17 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2023-11-26 13:06:17 -0700 |
| commit | 2ae347bd4b8e945d6c1bfa94032e02aba7861a18 (patch) | |
| tree | 61a438a1f94fe6d1138e396b3732ee34e8767216 | |
| parent | ecbe2eb4cc3785e9e921671d0574cec48c270d42 (diff) | |
| download | rde-2ae347bd4b8e945d6c1bfa94032e02aba7861a18.tar.gz rde-2ae347bd4b8e945d6c1bfa94032e02aba7861a18.tar.bz2 rde-2ae347bd4b8e945d6c1bfa94032e02aba7861a18.zip | |
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.
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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, |