diff options
author | David Roundy <droundy@darcs.net> | 2007-06-23 16:35:16 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-23 16:35:16 +0200 |
commit | 1acac6f30cf5f539381b81b85d96b1f69d4e56b9 (patch) | |
tree | 4d1a72341f57c717f429e9de1f3a2b80036823c3 /Spiral.hs | |
parent | 4f6089647518404dfbebf7e710e4ccab6c450f98 (diff) | |
download | XMonadContrib-1acac6f30cf5f539381b81b85d96b1f69d4e56b9.tar.gz XMonadContrib-1acac6f30cf5f539381b81b85d96b1f69d4e56b9.tar.xz XMonadContrib-1acac6f30cf5f539381b81b85d96b1f69d4e56b9.zip |
move Spiral to LayoutHelpers.
darcs-hash:20070623143516-72aca-7025ef870ceb46c7bf73f51547e2677902e4e5ce.gz
Diffstat (limited to '')
-rw-r--r-- | Spiral.hs | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -22,7 +22,8 @@ import Graphics.X11.Xlib import Operations import Data.Ratio import XMonad -import qualified StackSet as W + +import XMonadContrib.LayoutHelpers -- $usage -- You can use this module with the following in your Config.hs file: @@ -52,10 +53,10 @@ blend scale ratios = zipWith (+) ratios scaleFactors scaleFactors = map (* step) . reverse . take len $ [0..] spiral :: Rational -> Layout a -spiral scale = Layout { doLayout = \r -> fibLayout r . W.integrate, +spiral scale = Layout { doLayout = l2lModDo fibLayout, modifyLayout = \m -> return $ fmap resize $ fromMessage m } where - fibLayout sc ws = return $ zip ws rects + fibLayout sc ws = zip ws rects where ratios = blend scale . reverse . take (length ws - 1) . mkRatios $ tail fibs rects = divideRects (zip ratios (cycle [East .. North])) sc |