diff options
| author | David Roundy <droundy@darcs.net> | 2007-09-29 21:12:38 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-09-29 21:12:38 +0200 |
| commit | 2e07689ceadaea1853c1228d14346853223be942 (patch) | |
| tree | 69a6f1aed8bf082fd711a366baf3bf62534d9145 /Spiral.hs | |
| parent | 7c1d1059d2626927bbc553f0efccb0b472fa569f (diff) | |
| download | XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.tar.gz XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.tar.xz XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.zip | |
some renaming of classes and data types.
darcs-hash:20070929191238-72aca-ceb0f2a89b35460e87cf9ff935f786b5a6028fb5.gz
Diffstat (limited to 'Spiral.hs')
| -rw-r--r-- | Spiral.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -55,11 +55,11 @@ blend scale ratios = zipWith (+) ratios scaleFactors step = (scale - (1 % 1)) / (fromIntegral len) scaleFactors = map (* step) . reverse . take len $ [0..] -spiral :: Rational -> Layout a +spiral :: Rational -> LayoutClass a spiral = spiralWithDir East CW -spiralWithDir :: Direction -> Rotation -> Rational -> Layout a -spiralWithDir dir rot scale = Layout { doLayout = l2lModDo fibLayout, +spiralWithDir :: Direction -> Rotation -> Rational -> LayoutClass a +spiralWithDir dir rot scale = LayoutClass { doLayout = l2lModDo fibLayout, modifyLayout = \m -> return $ fmap resize $ fromMessage m } where fibLayout sc ws = zip ws rects |