diff options
| author | Josh Rahm <rahm@google.com> | 2023-12-08 16:14:05 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2023-12-08 16:14:05 -0700 |
| commit | 8bbc3ce0d0ae10b5e7630779c970f38f0a767789 (patch) | |
| tree | 8d31ec2a97dd0ae880e2a5e3a2c29b8331d22976 /src/Rahm/Desktop/Keys | |
| parent | 718d69736e5dfd946648e7a305c15281d9656466 (diff) | |
| parent | 9f176adbff807dafec2caee5e3b104e65caf9029 (diff) | |
| download | rde-8bbc3ce0d0ae10b5e7630779c970f38f0a767789.tar.gz rde-8bbc3ce0d0ae10b5e7630779c970f38f0a767789.tar.bz2 rde-8bbc3ce0d0ae10b5e7630779c970f38f0a767789.zip | |
Merge branch 'pinwindow'
Diffstat (limited to 'src/Rahm/Desktop/Keys')
| -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. |