diff options
| author | Josh Rahm <rahm@google.com> | 2023-12-08 16:13:24 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2023-12-08 16:13:24 -0700 |
| commit | 9f176adbff807dafec2caee5e3b104e65caf9029 (patch) | |
| tree | 8d31ec2a97dd0ae880e2a5e3a2c29b8331d22976 /src/Rahm/Desktop/Keys/Wml.hs | |
| parent | 33879cd90b0dd488540f7526d3eceab152a23d0f (diff) | |
| download | rde-pinwindow.tar.gz rde-pinwindow.tar.bz2 rde-pinwindow.zip | |
Got the pin window layout to work. It works better than the main branch for now except the border color does not change.pinwindow
Diffstat (limited to 'src/Rahm/Desktop/Keys/Wml.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys/Wml.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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. |