diff options
| author | Josh Rahm <rahm@google.com> | 2023-12-04 12:53:17 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2023-12-04 12:53:17 -0700 |
| commit | 2ab0c27e9864fd072275664ff13270c5e42ed1b6 (patch) | |
| tree | febac27241d330546d9d0b1bed5b97e3fe2f0fc7 /src/Rahm/Desktop/Keys.hs | |
| parent | 7451146b8738db5bd31c968e9fc6703fcbff6078 (diff) | |
| download | rde-2ab0c27e9864fd072275664ff13270c5e42ed1b6.tar.gz rde-2ab0c27e9864fd072275664ff13270c5e42ed1b6.tar.bz2 rde-2ab0c27e9864fd072275664ff13270c5e42ed1b6.zip | |
Fix bug in master swapping where the last window is not scoped to a tag.
Diffstat (limited to 'src/Rahm/Desktop/Keys.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index f4ccb72..d153a18 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -296,10 +296,9 @@ keymap = runKeys $ do withBorderColorM "#00ffff" l1 $ do lift $ addStringToPendingBuffer " " l2 <- mapMaybe (\(Location _ w) -> w) <$> readNextLocationSet - let rewriteMap = Map.fromList $ zip l1 l2 ++ zip l2 l1 lift $ do setAlternateWindows l1 - windows $ mapWindows (\w -> fromMaybe w (Map.lookup w rewriteMap)) + windows $ W.swapWindows $ zip l1 l2 ++ zip l2 l1 bind xK_BackSpace $ do -- The only raw keybinding. Meant to get a terminal to unbrick XMonad if |