diff options
| author | Josh Rahm <rahm@google.com> | 2025-03-06 15:27:01 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2025-03-06 15:27:01 -0700 |
| commit | 61e8ccf2eab183587605cce4c5126258571b5294 (patch) | |
| tree | bf793e89bf4aa44d1459bd3db3dbf4a216c3675b /src/Rahm/Desktop/Keys.hs | |
| parent | 1f66fa91b479946e9b4d172d88bbd5aa15676423 (diff) | |
| download | rde-61e8ccf2eab183587605cce4c5126258571b5294.tar.gz rde-61e8ccf2eab183587605cce4c5126258571b5294.tar.bz2 rde-61e8ccf2eab183587605cce4c5126258571b5294.zip | |
Rebrand WorkspaceSelect to "WorkspaceWheel"
Made the selector a wheel instead of a row. Added some keybindings and
button bindings.
Diffstat (limited to 'src/Rahm/Desktop/Keys.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index f4efbb3..2085c22 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -52,6 +52,7 @@ import Rahm.Desktop.Common gotoWorkspace, locationWindow, locationWorkspace, + pointerScreen, pointerWindow, pointerWorkspace, runMaybeT_, @@ -59,7 +60,7 @@ import Rahm.Desktop.Common ) import Rahm.Desktop.DMenu (runDMenu) import qualified Rahm.Desktop.Dragging as D -import Rahm.Desktop.Dzen.WorkspaceSelect (displayDzenSelection) +import Rahm.Desktop.WorkspaceWheel (displayDzenSelection, displayDzenSelectionAtPoint, displayDzenSelectionInCenter) import Rahm.Desktop.History ( historyBack, historyForward, @@ -1100,7 +1101,7 @@ bindings = do bind xK_o $ do justMod $ - doc "Select a workspace using dzen" displayDzenSelection + doc "Select a workspace using dzen" displayDzenSelectionInCenter bind button10 $ do noMod $ @@ -1208,6 +1209,13 @@ bindings = do mapM_ X.killWindow =<< getAndResetWindowSelection escape + bind button10 $ + noMod $ + doc "Show dzen selection" $ + noWindow $ do + displayDzenSelection + escape + bind button14 $ noMod $ subbind $ do @@ -1297,7 +1305,11 @@ bindings = do cornersConfig :: Map ScreenCorner (X ()) cornersConfig = - Map.fromList [(SCUpperLeft, displayDzenSelection)] + Map.fromList + [ ( SCUpperLeft, + displayDzenSelection + ) + ] -- where -- |