From 312808481d2ab51e45a17f3130ffd1a0d081bd33 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Thu, 14 Jun 2007 16:43:00 +0200 Subject: Spiral.hs: info and documentation darcs-hash:20070614144300-32816-023cedac8214f7875981ca977f46003a227bb1a4.gz --- Spiral.hs | 37 ++++++++++++++++++++++++++++--------- 1 file changed, 28 insertions(+), 9 deletions(-) (limited to 'Spiral.hs') diff --git a/Spiral.hs b/Spiral.hs index 3be033d..ce115e5 100644 --- a/Spiral.hs +++ b/Spiral.hs @@ -1,4 +1,22 @@ -module XMonadContrib.Spiral (spiral) where +----------------------------------------------------------------------------- +-- | +-- Module : XMonadContrib.SimpleDate +-- Copyright : (c) Joe Thornber +-- License : BSD3-style (see LICENSE) +-- +-- Maintainer : Joe Thornber +-- Stability : stable +-- Portability : portable +-- +-- Spiral adds a spiral tiling layout +-- +----------------------------------------------------------------------------- + +module XMonadContrib.Spiral ( + -- * Usage + -- $usage + spiral + ) where import Graphics.X11.Xlib import Operations @@ -6,16 +24,17 @@ import Data.Ratio import XMonad import qualified StackSet as W +-- $usage +-- You can use this module with the following in your Config.hs file: -- --- Spiral layout --- --- eg, --- defaultLayouts :: [Layout] --- defaultLayouts = [ full, --- tall defaultWindowsInMaster defaultDelta (1%2), --- wide defaultWindowsInMaster defaultDelta (1%2), --- spiral (1 % 1) ] +-- > import XMonadContrib.Spiral -- +-- > defaultLayouts :: [Layout] +-- > defaultLayouts = [ full, +-- > tall defaultWindowsInMaster defaultDelta (1%2), +-- > wide defaultWindowsInMaster defaultDelta (1%2), +-- > spiral (1 % 1) ] + fibs :: [Integer] fibs = 1 : 1 : (zipWith (+) fibs (tail fibs)) -- cgit v1.2.3