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 | 28e0aa541629abe5d29f3be1c5223ae1c32e7de1 (patch) | |
| tree | b2bd1075aa2d1845c882806935ee7b641b55861f /Operations.hs | |
| parent | 123accac2005e468229653b0f028578b5243df93 (diff) | |
| download | metatile-28e0aa541629abe5d29f3be1c5223ae1c32e7de1.tar metatile-28e0aa541629abe5d29f3be1c5223ae1c32e7de1.zip | |
Stack windows in the order they are returned by doLayout
darcs-hash:20070620150419-a5988-6efb2349de03bdbb9575eae07ca85c69cc5c9996
Diffstat (limited to 'Operations.hs')
| -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 |