twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

[Spiral] divideRects now takes a list of directions to split in

Browse Source
This commit is contained in:
joe.thornber 2007-05-24 09:02:11 +00:00
parent aa4d37d8ac
commit 5288a861a6
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Spiral.hs
View File

@ -22,6 +22,8 @@ mkRatios :: [Integer] -> [Rational]
mkRatios (x1:x2:xs) = (x1 % x2) : mkRatios (x2:xs) mkRatios (x1:x2:xs) = (x1 % x2) : mkRatios (x2:xs)
mkRatios _ = [] mkRatios _ = []
data Direction = East | South | West | North deriving (Enum)
spiral :: Rational -> Layout spiral :: Rational -> Layout
spiral scale = Layout { doLayout = fibLayout, spiral scale = Layout { doLayout = fibLayout,
modifyLayout = \m -> fmap resize (fromMessage m) } modifyLayout = \m -> fmap resize (fromMessage m) }
@ -29,24 +31,17 @@ spiral scale = Layout { doLayout = fibLayout,
fibLayout sc ws = return $ zip ws rects fibLayout sc ws = return $ zip ws rects
where len = length ws where len = length ws
ratios = map (* scale) . reverse . take len . mkRatios $ fibs ratios = map (* scale) . reverse . take len . mkRatios $ fibs
rects = divideRects ratios len East sc rects = divideRects ratios (cycle [East .. North]) len sc
resize Expand = spiral $ (11 % 10) * scale resize Expand = spiral $ (21 % 20) * scale
resize Shrink = spiral $ (10 % 11) * scale resize Shrink = spiral $ (20 % 21) * scale
data Direction = East | South | West | North divideRects :: [Rational] -> [Direction] -> Int -> Rectangle -> [Rectangle]
nextDir :: Direction -> Direction
nextDir East = South
nextDir South = West
nextDir West = North
nextDir North = East
divideRects :: [Rational] -> Int -> Direction -> Rectangle -> [Rectangle]
divideRects [] _ _ _ = [] divideRects [] _ _ _ = []
divideRects (r:rs) n dir rect | n <= 1 = [rect] divideRects _ [] _ _ = []
| otherwise = case divideRect r dir rect of divideRects (r:rs) (d:ds) n rect | n <= 1 = [rect]
(r1, r2) -> r1 : (divideRects rs (n - 1) (nextDir dir) r2) | otherwise = case divideRect r d rect of
(r1, r2) -> r1 : (divideRects rs ds (n - 1) r2)
divideRect :: Rational -> Direction -> Rectangle -> (Rectangle, Rectangle) divideRect :: Rational -> Direction -> Rectangle -> (Rectangle, Rectangle)
divideRect ratio East (Rectangle x y w h) = let (w1, w2) = chop ratio (fromIntegral w) in divideRect ratio East (Rectangle x y w h) = let (w1, w2) = chop ratio (fromIntegral w) in