twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-14 03:35:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

throttle the exponential expense when many windows are present.

Browse Source
This commit is contained in:
David Roundy
2007-05-16 02:21:23 +00:00
parent f539804577
commit a23d995050
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Mosaic.hs
View File

@@ -50,6 +50,9 @@ expandWindow = ExpandWindow
shrinkWindow = ShrinkWindow shrinkWindow = ShrinkWindow
squareWindow = SquareWindow squareWindow = SquareWindow
largeNumber :: Int
largeNumber = 1000
mosaic :: Rational -> Rational -> M.Map NamedWindow WindowRater -> M.Map NamedWindow Area -> Layout mosaic :: Rational -> Rational -> M.Map NamedWindow WindowRater -> M.Map NamedWindow Area -> Layout
mosaic delta tileFrac raters areas = Layout { doLayout = mosaicL tileFrac raters areas mosaic delta tileFrac raters areas = Layout { doLayout = mosaicL tileFrac raters areas
, modifyLayout = mlayout } , modifyLayout = mlayout }
@@ -109,7 +112,7 @@ mosaicL f raters areas origRect origws
map (fmap M . catRated . map (fmap M . catRated .
map (\(ws',r') -> my_mosaic r' (otherDirection d) ws')) $ map (\(ws',r') -> my_mosaic r' (otherDirection d) ws')) $
map (\ws' -> zip ws' $ partitionR d r $ map sumareas ws') $ map (\ws' -> zip ws' $ partitionR d r $ map sumareas ws') $
init $ allsplits ws take largeNumber $ init $ allsplits ws
where minL [] = myerror "minL on empty list" where minL [] = myerror "minL on empty list"
minL [a] = a minL [a] = a
minL (a:b:c) = minL (min a b:c) minL (a:b:c) = minL (min a b:c)