diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 20:34:39 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 20:34:39 +0200 |
commit | aa7b17533695687a9c31070f5d9845c52493856e (patch) | |
tree | 2045589e106c7bba57778278ebce9e7d5e8c8d8c /Spiral.hs | |
parent | bb778e7d5c38e5d68d350e11c61f0055000724c6 (diff) | |
download | XMonadContrib-aa7b17533695687a9c31070f5d9845c52493856e.tar.gz XMonadContrib-aa7b17533695687a9c31070f5d9845c52493856e.tar.xz XMonadContrib-aa7b17533695687a9c31070f5d9845c52493856e.zip |
Updates to work with recent API changes
darcs-hash:20070611183439-a5988-c3d6cc194fa83f012ab49d6d79130ff459dcdfe1.gz
Diffstat (limited to 'Spiral.hs')
-rw-r--r-- | Spiral.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -4,6 +4,7 @@ import Graphics.X11.Xlib import Operations import Data.Ratio import XMonad +import qualified StackSet as W -- -- Spiral layout @@ -32,7 +33,7 @@ blend scale ratios = zipWith (+) ratios scaleFactors scaleFactors = map (* step) . reverse . take len $ [0..] spiral :: Rational -> Layout -spiral scale = Layout { doLayout = fibLayout, +spiral scale = Layout { doLayout = \r -> fibLayout r . W.integrate, modifyLayout = \m -> return $ fmap resize $ fromMessage m } where fibLayout sc ws = return $ zip ws rects |