diff options
| author | Josh Rahm <rahm@google.com> | 2023-11-30 19:01:08 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2023-11-30 19:01:08 -0700 |
| commit | afbf998d91dc0ea464d8ad6f0e89ebe6eb73d882 (patch) | |
| tree | cd734301c6cdf42fbbe2b8c12e6bdd4a02bbd0d7 /src/Rahm/Desktop/Keys.hs | |
| parent | 0f68a9ed375e95ae608da90c83e0991352efa4aa (diff) | |
| download | rde-afbf998d91dc0ea464d8ad6f0e89ebe6eb73d882.tar.gz rde-afbf998d91dc0ea464d8ad6f0e89ebe6eb73d882.tar.bz2 rde-afbf998d91dc0ea464d8ad6f0e89ebe6eb73d882.zip | |
Minor code improvements
Diffstat (limited to 'src/Rahm/Desktop/Keys.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index d61dbd6..e92cfdf 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -599,9 +599,13 @@ keymap = runKeys $ do withBorderColorM "#00ffff" selection $ do ws <- readNextWorkspace - (Endo allMovements) <- lift $ mconcat <$> mapM (fmap Endo . moveWindowToWorkspaceFn ws) selection lift $ do + (Endo allMovements) <- + mconcat + <$> mapM (fmap Endo . moveWindowToWorkspaceFn ws) selection + setAlternateWindows selection + forM_ selection $ \win -> do mapM_ ( \t -> do |