diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-08-15 05:15:21 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-08-15 05:15:21 +0200 |
| commit | 43ce1fc018fbd3017c8fd0faadcbd8a63779b781 (patch) | |
| tree | d2482445a93266bcdedd2d0d2fa78122f628639c | |
| parent | 74be11b60da8ad9373d26fb2a669ba3c4852b6a7 (diff) | |
| download | metatile-43ce1fc018fbd3017c8fd0faadcbd8a63779b781.tar metatile-43ce1fc018fbd3017c8fd0faadcbd8a63779b781.zip | |
Operations.windows: minor refactor
darcs-hash:20070815031521-a5988-e94826af7bfcc133c7fe99718310e817975ef759
| -rw-r--r-- | Operations.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Operations.hs b/Operations.hs index 3e2a561..ca91dcb 100644 --- a/Operations.hs +++ b/Operations.hs @@ -141,9 +141,8 @@ windows f = do d <- asks display -- for each workspace, layout the currently visible workspaces - let allscreens = W.current ws : W.visible ws - each_visible = map (W.integrate' . W.stack . W.workspace) allscreens - summed_visible = reverse $ foldl (\ (x:xs) y -> ((x++y):x:xs)) [[]] each_visible + let allscreens = W.current ws : W.visible ws + summed_visible = scanl (++) [] $ map (W.integrate' . W.stack . W.workspace) allscreens visible <- fmap concat $ forM (zip allscreens summed_visible) $ \ (w, vis) -> do let n = W.tag (W.workspace w) this = W.view n ws |