diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-20 17:04:19 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-20 17:04:19 +0200 |
| commit | 88aef57932c2168d7edaff4caa6f5e513ed275c4 (patch) | |
| tree | b2bd1075aa2d1845c882806935ee7b641b55861f | |
| parent | 25f842d5fbe35b25730e4ba1b310a2b0487ffe08 (diff) | |
| download | xmonad-88aef57932c2168d7edaff4caa6f5e513ed275c4.tar.gz xmonad-88aef57932c2168d7edaff4caa6f5e513ed275c4.tar.xz xmonad-88aef57932c2168d7edaff4caa6f5e513ed275c4.zip | |
Stack windows in the order they are returned by doLayout
darcs-hash:20070620150419-a5988-6efb2349de03bdbb9575eae07ca85c69cc5c9996.gz
Diffstat (limited to '')
| -rw-r--r-- | Operations.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Operations.hs b/Operations.hs index 4eaf3e2..f1a7eb1 100644 --- a/Operations.hs +++ b/Operations.hs @@ -167,11 +167,10 @@ windows f = do (sx + floor (toRational sw*rx)) (sy + floor (toRational sh*ry)) (floor (toRational sw*rw)) (floor (toRational sh*rh)) - io $ restackWindows d (flt ++ - maybe [] (\s@(W.Stack foc _ _) -> foc : delete foc (W.integrate s)) tiled) - + let vs = flt ++ map fst rs + io $ restackWindows d vs -- return the visible windows for this workspace: - return (map fst rs ++ flt) + return vs setTopFocus logHook |