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

Add changeMaster function to L.Mosaic

Browse Source
This commit is contained in:
Adam Vogt
2009-05-01 23:31:36 +00:00
parent 89c2ecb448
commit 552b4f91ab
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
XMonad/Layout/Mosaic.hs
View File

@@ -23,6 +23,7 @@ module XMonad.Layout.Mosaic (
,steeper ,steeper
,growMaster ,growMaster
,shrinkMaster ,shrinkMaster
,changeMaster
) )
where where
@@ -134,12 +135,15 @@ shallower [] = []
shallower xs = map (+(minimum xs*2)) xs shallower xs = map (+(minimum xs*2)) xs
growMaster :: [Rational] -> [Rational] growMaster :: [Rational] -> [Rational]
growMaster [] = [] growMaster = changeMaster 2
growMaster (x:xs) = 2*x:xs
shrinkMaster :: [Rational] -> [Rational] shrinkMaster :: [Rational] -> [Rational]
shrinkMaster [] = [] shrinkMaster = changeMaster 0.5
shrinkMaster (x:xs) = x/2:xs
-- | Multiply the area of the current master by a specified ratio
changeMaster :: Rational -> [Rational] -> [Rational]
changeMaster _ [] = []
changeMaster f (x:xs) = f*x:xs
splits :: Int -> Rectangle -> [Rational] -> [[Rectangle]] splits :: Int -> Rectangle -> [Rational] -> [[Rectangle]]
splits num rect = splitsL rect . makeTree . normalize splits num rect = splitsL rect . makeTree . normalize