twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-09 00:21:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix float stacking

Browse Source
This commit is contained in:
Spencer Janssen
2007-06-14 21:34:12 +00:00
parent fa2b56c14e
commit a2c5aa3612
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Operations.hs
View File

@@ -21,7 +21,7 @@ import qualified StackSet as W
import {-# SOURCE #-} Config (borderWidth,logHook,numlockMask) import {-# SOURCE #-} Config (borderWidth,logHook,numlockMask)
import Data.Maybe import Data.Maybe
import Data.List (genericIndex, nub, (\\)) import Data.List (delete, genericIndex, nub, (\\))
import Data.Bits ((.|.), (.&.), complement) import Data.Bits ((.|.), (.&.), complement)
import Data.Ratio import Data.Ratio
import qualified Data.Map as M import qualified Data.Map as M
@@ -165,7 +165,8 @@ windows f = do
(sx + floor (toRational sw*rx)) (sy + floor (toRational sh*ry)) (sx + floor (toRational sw*rx)) (sy + floor (toRational sh*ry))
(floor (toRational sw*rw)) (floor (toRational sh*rh)) (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 the visible windows for this workspace:
return (map fst rs ++ flt) return (map fst rs ++ flt)