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