diff options
| author | Josh Rahm <rahm@google.com> | 2023-12-07 12:38:10 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2023-12-07 12:38:10 -0700 |
| commit | 33879cd90b0dd488540f7526d3eceab152a23d0f (patch) | |
| tree | e47060d7caf24fb4cd399a1c7f8377e7275cef8f /src/Rahm/Desktop/Keys.hs | |
| parent | 83543b4972edcebf3d9e568ed6a556ce074daa06 (diff) | |
| download | rde-33879cd90b0dd488540f7526d3eceab152a23d0f.tar.gz rde-33879cd90b0dd488540f7526d3eceab152a23d0f.tar.bz2 rde-33879cd90b0dd488540f7526d3eceab152a23d0f.zip | |
WIP trying to use pin-window as a layout. Not really working too well
Diffstat (limited to 'src/Rahm/Desktop/Keys.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index 76634b0..3b08f37 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -42,6 +42,7 @@ import Graphics.X11.ExtraTypes.XF86 import Rahm.Desktop.Common ( Location (..), click, + duplWindow, focusLocation, getCurrentWorkspace, gotoWorkspace, @@ -51,7 +52,7 @@ import Rahm.Desktop.Common runMaybeT_, setBorderColor, withBorderColor, - withBorderColorM, duplWindow, + withBorderColorM, ) import Rahm.Desktop.DMenu (runDMenu) import qualified Rahm.Desktop.Dragging as D @@ -117,6 +118,7 @@ import Rahm.Desktop.Layout.List toNextLayout, toPreviousLayout, ) +import Rahm.Desktop.Layout.PinWindow (toggleWindowPin) import Rahm.Desktop.Layout.Pop (togglePop) import Rahm.Desktop.Layout.Rotate (rotateLayout) import Rahm.Desktop.Logger @@ -307,7 +309,7 @@ keymap = runKeys $ do justMod $ doc "Run the command which opened this window again." $ X.withFocused duplWindow - + bind xK_w $ do justMod $ doc "Swap windows with other windows" $ @@ -567,6 +569,11 @@ keymap = runKeys $ do doc "Lock the screen" $ spawnX "xsecurelock" + bind xK_p $ + justMod $ + doc "Pin a window" $ + withFocused toggleWindowPin + bind xK_minus $ do justMod $ doc |