Fix float stacking

darcs-hash:20070614213412-a5988-6fcf9d8194fe587377e2a20f9b47799a72be5f2e

1 files changed, 3 insertions, 2 deletions

diff --git a/Operations.hs b/Operations.hs
index 3ce16f6..1526fa2 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -21,7 +21,7 @@ import qualified StackSet as W
 import {-# SOURCE #-} Config (borderWidth,logHook,numlockMask)
 
 import Data.Maybe
-import Data.List            (genericIndex, nub, (\\))
+import Data.List            (delete, genericIndex, nub, (\\))
 import Data.Bits            ((.|.), (.&.), complement)
 import Data.Ratio
 import qualified Data.Map as M
@@ -165,7 +165,8 @@ windows f = do
                 (sx + floor (toRational sw*rx)) (sy + floor (toRational sh*ry))
                 (floor (toRational sw*rw)) (floor (toRational sh*rh))
 
-        whenJust (W.peek this) $ io . raiseWindow d
+        io $ restackWindows d (flt ++
+            maybe [] (\s@(W.Stack f _ _) -> f : delete f (W.integrate s)) tiled)
 
         -- return the visible windows for this workspace:
         return (map fst rs ++ flt)