From 33879cd90b0dd488540f7526d3eceab152a23d0f Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Thu, 7 Dec 2023 12:38:10 -0700
Subject: WIP trying to use pin-window as a layout. Not really working too well

---
 src/Rahm/Desktop/Keys.hs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'src/Rahm/Desktop/Keys.hs')

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
-- 
cgit