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

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

diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs
index 0d0691f..6555312 100644
--- a/src/Rahm/Desktop/Keys/Wml.hs
+++ b/src/Rahm/Desktop/Keys/Wml.hs
@@ -88,6 +88,7 @@ import Rahm.Desktop.History
     nextLocation,
     -- pastHistory,
   )
+import Rahm.Desktop.Layout.PinWindow (pinnedWindows)
 import Rahm.Desktop.Logger (LogLevel (Info, Trace), logs)
 import Rahm.Desktop.Marking
   ( farLeftWindow,
@@ -634,8 +635,7 @@ readNextLocationSet' =
       (_, _, ".") -> (: []) <$> mt getCurrentLocation
       -- The selected windows in the selection set.
       (_, _, "#") ->
-        fromMaybeTX $
-          mapM windowLocation =<< MaybeT (Just <$> fromX getAndResetWindowSelection)
+        MaybeT . fromX $ Just . map (Location "*" . Just) <$> pinnedWindows
       -- The window on the far-left of the screens.
       (_, _, "^") -> (: []) <$> fromMaybeTX farLeftWindow
       -- The windows on the far-right of the screens.
-- 
cgit