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

fix Expand/Shrink for spiralWithDir

Browse Source
This commit is contained in:
bobstopper 2007-08-08 20:47:52 +00:00
parent 7d9c2158ff
commit cc82ef418f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Spiral.hs
View File

@ -69,8 +69,8 @@ spiralWithDir dir rot scale = Layout { doLayout = l2lModDo fibLayout,
dirs = dropWhile (/= dir) $ case rot of dirs = dropWhile (/= dir) $ case rot of
CW -> cycle [East .. North] CW -> cycle [East .. North]
CCW -> cycle [North, West, South, East] CCW -> cycle [North, West, South, East]
resize Expand = spiral $ (21 % 20) * scale resize Expand = spiralWithDir dir rot $ (21 % 20) * scale
resize Shrink = spiral $ (20 % 21) * scale resize Shrink = spiralWithDir dir rot $ (20 % 21) * scale
-- This will produce one more rectangle than there are splits details -- This will produce one more rectangle than there are splits details
divideRects :: [(Rational, Direction)] -> Rectangle -> [Rectangle] divideRects :: [(Rational, Direction)] -> Rectangle -> [Rectangle]