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

X.L.Mosaic: prevent users from causing non-termination with negative elements

Browse Source
This commit is contained in:
Adam Vogt
2009-02-10 02:27:27 +00:00
parent aa7dce7085
commit 92aa7079ea
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
XMonad/Layout/Mosaic.hs
View File

@@ -71,10 +71,11 @@ data Aspect
instance Message Aspect
data Mosaic a
{- | The relative magnitudes of the positive rational numbers provided
determine the relative areas that the windows receive. The first
number represents the size of the master window, the second is for the
next window in the stack, and so on.
{- | The relative magnitudes (the sign is ignored) of the rational numbers
- provided determine the relative areas that the windows receive. The
- first number represents the size of the master window, the second is for
- the next window in the stack, and so on. Windows without a list element
- are hidden.
-}
= Mosaic [Rational]
-- override the aspect? current index, maximum index
@@ -141,7 +142,8 @@ shrinkMaster [] = []
shrinkMaster (x:xs) = x/2:xs
splits :: Int -> Rectangle -> [Rational] -> [[Rectangle]]
splits num rect sz = splitsL rect $ makeTree $ normalize $ reverse $ take num sz
splits num rect sz = splitsL rect $ makeTree $ normalize
$ map abs $ reverse $ take num sz
-- recursively enumerate splits
splitsL :: Rectangle -> Tree Rational -> [[Rectangle]]