diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Hooks/EwmhDesktops.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs index 21f2b3c..98ae410 100644 --- a/XMonad/Hooks/EwmhDesktops.hs +++ b/XMonad/Hooks/EwmhDesktops.hs @@ -59,7 +59,6 @@ ewmhDesktopsLogHook :: X () ewmhDesktopsLogHook = withWindowSet $ \s -> do sort' <- getSortByIndex let ws = sort' $ W.workspaces s - let wins = W.allWindows s setSupported @@ -74,6 +73,8 @@ ewmhDesktopsLogHook = withWindowSet $ \s -> do setCurrentDesktop curr + -- all windows, with focused windows last + let wins = nub . concatMap (maybe [] (\(W.Stack x l r)-> reverse l ++ r ++ [x]) . W.stack) $ ws setClientList wins -- Per window Desktop |