twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-09 08:31:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

Operations.windows: minor refactor

Browse Source
This commit is contained in:
Spencer Janssen
2007-08-15 03:15:21 +00:00
parent 447d662d1d
commit 919774dff8
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Operations.hs
View File

@@ -141,9 +141,8 @@ windows f = do
d <- asks display d <- asks display
-- for each workspace, layout the currently visible workspaces -- for each workspace, layout the currently visible workspaces
let allscreens = W.current ws : W.visible ws let allscreens = W.current ws : W.visible ws
each_visible = map (W.integrate' . W.stack . W.workspace) allscreens summed_visible = scanl (++) [] $ map (W.integrate' . W.stack . W.workspace) allscreens
summed_visible = reverse $ foldl (\ (x:xs) y -> ((x++y):x:xs)) [[]] each_visible
visible <- fmap concat $ forM (zip allscreens summed_visible) $ \ (w, vis) -> do visible <- fmap concat $ forM (zip allscreens summed_visible) $ \ (w, vis) -> do
let n = W.tag (W.workspace w) let n = W.tag (W.workspace w)
this = W.view n ws this = W.view n ws