From 1acac6f30cf5f539381b81b85d96b1f69d4e56b9 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sat, 23 Jun 2007 16:35:16 +0200
Subject: move Spiral to LayoutHelpers.

darcs-hash:20070623143516-72aca-7025ef870ceb46c7bf73f51547e2677902e4e5ce.gz
---
 Spiral.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'Spiral.hs')

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
 
-- 
cgit v1.2.3