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/Layout.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/src/Rahm/Desktop/Layout.hs b/src/Rahm/Desktop/Layout.hs
index d71989f..f6fb49e 100644
--- a/src/Rahm/Desktop/Layout.hs
+++ b/src/Rahm/Desktop/Layout.hs
@@ -18,6 +18,7 @@ import Rahm.Desktop.Layout.List
     nil,
     (|:),
   )
+import Rahm.Desktop.Layout.PinWindow (PinWindowLayout (PinWindowLayout))
 import Rahm.Desktop.Layout.Pop (poppable)
 import Rahm.Desktop.Layout.Redescribe (Describer (..), Redescribe (..))
 import Rahm.Desktop.Layout.ReinterpretMessage (DoReinterpret (..), ReinterpretMessage (..))
@@ -41,8 +42,9 @@ import XMonad.Layout.Spiral (spiral)
 
 myLayout =
   fullscreenFull $
-    hole $
-      avoidStruts myLayoutList
+    PinWindowLayout $
+      hole $
+        avoidStruts myLayoutList
 
 mySpacing = spacingRaw True (Border 5 5 5 5) True (Border 5 5 5 5) True
 
-- 
cgit 


From 9f176adbff807dafec2caee5e3b104e65caf9029 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 8 Dec 2023 16:13:24 -0700
Subject: Got the pin window layout to work. It works better than the main
 branch for now except the border color does not change.

---
 src/Rahm/Desktop/Layout.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

diff --git a/src/Rahm/Desktop/Layout.hs b/src/Rahm/Desktop/Layout.hs
index f6fb49e..4dfba25 100644
--- a/src/Rahm/Desktop/Layout.hs
+++ b/src/Rahm/Desktop/Layout.hs
@@ -18,7 +18,7 @@ import Rahm.Desktop.Layout.List
     nil,
     (|:),
   )
-import Rahm.Desktop.Layout.PinWindow (PinWindowLayout (PinWindowLayout))
+import Rahm.Desktop.Layout.PinWindow (PinWindowLayout (PinWindowLayout), pinnable)
 import Rahm.Desktop.Layout.Pop (poppable)
 import Rahm.Desktop.Layout.Redescribe (Describer (..), Redescribe (..))
 import Rahm.Desktop.Layout.ReinterpretMessage (DoReinterpret (..), ReinterpretMessage (..))
@@ -42,14 +42,13 @@ import XMonad.Layout.Spiral (spiral)
 
 myLayout =
   fullscreenFull $
-    PinWindowLayout $
       hole $
         avoidStruts myLayoutList
 
 mySpacing = spacingRaw True (Border 5 5 5 5) True (Border 5 5 5 5) True
 
 mods =
-  mySpacing . poppable . flippable . rotateable
+  pinnable . poppable . mySpacing . flippable . rotateable
 
 myLayoutList =
   layoutList $
-- 
cgit