twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Made the direction of spiral in Spiral.hs optionally configurable

Browse Source
This commit is contained in:
bobstopper
2007-07-21 00:23:07 +00:00
parent 4d973004ff
commit d090fe96f3
1 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Spiral.hs
View File

@@ -16,6 +16,9 @@ module XMonadContrib.Spiral (
-- * Usage -- * Usage
-- $usage -- $usage
spiral spiral
, spiralWithDir
, Rotation (..)
, Direction (..)
) where ) where
import Graphics.X11.Xlib import Graphics.X11.Xlib
@@ -43,7 +46,8 @@ mkRatios :: [Integer] -> [Rational]
mkRatios (x1:x2:xs) = (x1 % x2) : mkRatios (x2:xs) mkRatios (x1:x2:xs) = (x1 % x2) : mkRatios (x2:xs)
mkRatios _ = [] mkRatios _ = []
data Direction = East | South | West | North deriving (Enum) data Rotation = CW | CCW
data Direction = East | South | West | North deriving (Eq, Enum)
blend :: Rational -> [Rational] -> [Rational] blend :: Rational -> [Rational] -> [Rational]
blend scale ratios = zipWith (+) ratios scaleFactors blend scale ratios = zipWith (+) ratios scaleFactors
@@ -53,13 +57,18 @@ blend scale ratios = zipWith (+) ratios scaleFactors
scaleFactors = map (* step) . reverse . take len $ [0..] scaleFactors = map (* step) . reverse . take len $ [0..]
spiral :: Rational -> Layout a spiral :: Rational -> Layout a
spiral scale = Layout { doLayout = l2lModDo fibLayout, spiral = spiralWithDir East CW
modifyLayout = \m -> return $ fmap resize $ fromMessage m }
spiralWithDir :: Direction -> Rotation -> Rational -> Layout a
spiralWithDir dir rot scale = Layout { doLayout = l2lModDo fibLayout,
modifyLayout = \m -> return $ fmap resize $ fromMessage m }
where where
fibLayout sc ws = zip ws rects fibLayout sc ws = zip ws rects
where ratios = blend scale . reverse . take (length ws - 1) . mkRatios $ tail fibs where ratios = blend scale . reverse . take (length ws - 1) . mkRatios $ tail fibs
rects = divideRects (zip ratios (cycle [East .. North])) sc rects = divideRects (zip ratios dirs) sc
dirs = dropWhile (/= dir) $ case rot of
CW -> cycle [East .. North]
CCW -> cycle [North, West, South, East]
resize Expand = spiral $ (21 % 20) * scale resize Expand = spiral $ (21 % 20) * scale
resize Shrink = spiral $ (20 % 21) * scale resize Shrink = spiral $ (20 % 21) * scale