aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-06-14 23:34:12 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-06-14 23:34:12 +0200
commit080f9aef95c979a8cd5dbe5cc78c0aa89e9f424a (patch)
tree170602d32bcb1d1c6737e813fead8c161fb45d54
parentfc373eb331ef375866b603e5f984ec41f1a9d17f (diff)
downloadxmonad-080f9aef95c979a8cd5dbe5cc78c0aa89e9f424a.tar.gz
xmonad-080f9aef95c979a8cd5dbe5cc78c0aa89e9f424a.tar.xz
xmonad-080f9aef95c979a8cd5dbe5cc78c0aa89e9f424a.zip
Fix float stacking
darcs-hash:20070614213412-a5988-6fcf9d8194fe587377e2a20f9b47799a72be5f2e.gz
-rw-r--r--Operations.hs5
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)