summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-06-20 17:04:19 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-06-20 17:04:19 +0200
commit28e0aa541629abe5d29f3be1c5223ae1c32e7de1 (patch)
treeb2bd1075aa2d1845c882806935ee7b641b55861f
parent123accac2005e468229653b0f028578b5243df93 (diff)
downloadmetatile-28e0aa541629abe5d29f3be1c5223ae1c32e7de1.tar
metatile-28e0aa541629abe5d29f3be1c5223ae1c32e7de1.zip
Stack windows in the order they are returned by doLayout
darcs-hash:20070620150419-a5988-6efb2349de03bdbb9575eae07ca85c69cc5c9996
-rw-r--r--Operations.hs7
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