diff options
| author | Josh Rahm <rahm@google.com> | 2023-12-06 19:30:13 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2023-12-06 19:30:13 -0700 |
| commit | 0a30958905cfea13e2ee3b62fc38a50d62d8a08e (patch) | |
| tree | c61e5ad3509cef6fbeb26b700017e4c8a08278ae /src/Rahm/Desktop/Keys.hs | |
| parent | 74cdda710ffa1f99d8251759a62e1bea9fc61ff5 (diff) | |
| download | rde-0a30958905cfea13e2ee3b62fc38a50d62d8a08e.tar.gz rde-0a30958905cfea13e2ee3b62fc38a50d62d8a08e.tar.bz2 rde-0a30958905cfea13e2ee3b62fc38a50d62d8a08e.zip | |
Add duplicate window
Diffstat (limited to 'src/Rahm/Desktop/Keys.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index 210d4c5..76634b0 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -47,10 +47,11 @@ import Rahm.Desktop.Common gotoWorkspace, locationWindow, locationWorkspace, + pointerWorkspace, runMaybeT_, setBorderColor, withBorderColor, - withBorderColorM, pointerWorkspace, + withBorderColorM, duplWindow, ) import Rahm.Desktop.DMenu (runDMenu) import qualified Rahm.Desktop.Dragging as D @@ -302,6 +303,11 @@ keymap = runKeys $ do (h : _) -> lift (focusLocation h) _ -> return () + bind xK_semicolon $ + justMod $ + doc "Run the command which opened this window again." $ + X.withFocused duplWindow + bind xK_w $ do justMod $ doc "Swap windows with other windows" $ @@ -1102,8 +1108,8 @@ mouseMap = runButtons $ do bind button2 $ noMod $ - doc "Sink the window under the cursor into the tiling" $ - windows . W.sink + doc "Run the command that started a window." $ + duplWindow bind button3 $ noMod $ @@ -1170,7 +1176,7 @@ mouseMap = runButtons $ do bind button2 $ noMod $ - doc "Clear the window selection" (noWindow clearWindowSelection) + doc "Clear the window selection" $ noWindow (clearWindowSelection >> escape) bind button13 $ noMod $ |