move Spiral to LayoutHelpers.

darcs-hash:20070623143516-72aca-7025ef870ceb46c7bf73f51547e2677902e4e5ce.gz

1 files changed, 4 insertions, 3 deletions

diff --git a/Spiral.hs b/Spiral.hs
index bf3197b..fc48f03 100644
--- a/Spiral.hs
+++ b/Spiral.hs
@@ -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