From 87b103a4995fd2b6bbd1e72c446fd789caf5a050 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Thu, 7 Dec 2023 00:50:01 -0700
Subject: Experimental ability to pin a window using Mod+p

A pinned window will always try to stay on the same screen in the sname
position if it can.
---
 src/Main.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 507bd43..fa24255 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -67,6 +67,7 @@ import XMonad.Hooks.ManageHelpers (doFullFloat, isFullscreen)
 import XMonad.Layout.Fullscreen (fullscreenEventHook)
 import Data.List (isPrefixOf)
 import Rahm.Desktop.Keys.Wml (wmlLogHook)
+import Rahm.Desktop.PinWindow (pinWindowChangeHook, pinWindowBorderUpdate)
 
 main = do
   logHook <- xMobarLogHook
@@ -83,7 +84,7 @@ main = do
 
   (=<<) X.xmonad $
     applyKeys $
-      withStackChangeHook historyHook $
+      withStackChangeHook (pinWindowChangeHook <> historyHook) $
         ewmh $
           docks $
             def
@@ -129,7 +130,7 @@ main = do
                     ],
                 focusFollowsMouse = False,
                 clickJustFocuses = False,
-                logHook = wmlLogHook >> logHook xmobar
+                logHook = wmlLogHook >> pinWindowBorderUpdate >> logHook xmobar
               }
 
 -- Should the chrome window float? Returns false if the window's title starts
-- 
cgit