diff options
| author | bobstopper <bobstopper@bobturf.org> | 2007-08-08 22:47:52 +0200 |
|---|---|---|
| committer | bobstopper <bobstopper@bobturf.org> | 2007-08-08 22:47:52 +0200 |
| commit | c0f2103f05549c8616000915394812874efa64b2 (patch) | |
| tree | 6a6aeeda7440c8b504ae98c96ce0fe27b4de4108 | |
| parent | 3cc0572c611b4d3dceac79c278a32d2725178fb1 (diff) | |
| download | XMonadContrib-c0f2103f05549c8616000915394812874efa64b2.tar.gz XMonadContrib-c0f2103f05549c8616000915394812874efa64b2.tar.xz XMonadContrib-c0f2103f05549c8616000915394812874efa64b2.zip | |
fix Expand/Shrink for spiralWithDir
darcs-hash:20070808204752-ee4f8-2958869a43740d4d2bd15cabb30c6b7dd78a3e50.gz
| -rw-r--r-- | Spiral.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -69,8 +69,8 @@ spiralWithDir dir rot scale = Layout { doLayout = l2lModDo fibLayout, dirs = dropWhile (/= dir) $ case rot of CW -> cycle [East .. North] CCW -> cycle [North, West, South, East] - resize Expand = spiral $ (21 % 20) * scale - resize Shrink = spiral $ (20 % 21) * scale + resize Expand = spiralWithDir dir rot $ (21 % 20) * scale + resize Shrink = spiralWithDir dir rot $ (20 % 21) * scale -- This will produce one more rectangle than there are splits details divideRects :: [(Rational, Direction)] -> Rectangle -> [Rectangle] |