diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-03 12:12:07 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-03 12:12:07 +0200 |
| commit | d7735aa3cc1dbf273bb5464e15d9d4fea1b76495 (patch) | |
| tree | 08da5480a1d0359483bea5852073e8bbd7577dee /lib/EwmhDesktops.hs | |
| parent | 4456299ef5af8958e777a92667f130990fdc88eb (diff) | |
| download | xmonad-conf-d7735aa3cc1dbf273bb5464e15d9d4fea1b76495.tar xmonad-conf-d7735aa3cc1dbf273bb5464e15d9d4fea1b76495.zip | |
Add initial DynamicPerScreenWorkspaces implementation
Diffstat (limited to 'lib/EwmhDesktops.hs')
| -rw-r--r-- | lib/EwmhDesktops.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lib/EwmhDesktops.hs b/lib/EwmhDesktops.hs index 74d0260..334233d 100644 --- a/lib/EwmhDesktops.hs +++ b/lib/EwmhDesktops.hs @@ -85,14 +85,7 @@ ewmhDesktopsLogHook = withWindowSet $ \s -> do Just curr -> do setCurrentDesktop curr - -- Per window Desktop - -- To make gnome-panel accept our xinerama stuff, we display - -- all visible windows on the current desktop. - forM_ (W.current s : W.visible s) $ \x -> - forM_ (W.integrate' (W.stack (W.workspace x))) $ \win -> do - setWindowDesktop win curr - - forM_ (W.hidden s) $ \w -> + forM_ (map W.workspace (W.current s : W.visible s) ++ W.hidden s) $ \w -> case elemIndex (W.tag w) (map W.tag ws) of Nothing -> return () Just wn -> forM_ (W.integrate' (W.stack w)) $ \win -> do |