From 887dc0dad16a338764a2938ab52996a62480806b Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Thu, 14 Jun 2007 16:37:00 +0200 Subject: Combo.hs: info and documentation darcs-hash:20070614143700-32816-1f77a0f873d4683088dcadc2a4910ef1c740015f.gz --- Combo.hs | 33 +++++++++++++++++++++++++++++---- 1 file changed, 29 insertions(+), 4 deletions(-) (limited to 'Combo.hs') diff --git a/Combo.hs b/Combo.hs index 449a837..6b29ae8 100644 --- a/Combo.hs +++ b/Combo.hs @@ -1,13 +1,38 @@ +----------------------------------------------------------------------------- +-- | +-- Module : XMonadContrib.Combo +-- Copyright : (c) David Roundy +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : David Roundy +-- Stability : unstable +-- Portability : unportable +-- -- A layout that combines multiple layouts. +-- +----------------------------------------------------------------------------- --- To use this layout, 'import XMonadContrib.Combo' and add something like --- 'combo [(full,1),(tabbed,1)] (twoPane 0.03 0.5)' to your defaultLayouts. - -module XMonadContrib.Combo where +module XMonadContrib.Combo ( + -- * Usage + -- $usage + combo + ) where import XMonad import StackSet ( integrate, differentiate ) +-- $usage +-- +-- To use this layout write, in your Config.hs: +-- +-- > import XMonadContrib.Combo +-- +-- and add something like +-- +-- > combo [(full,1),(tabbed,1)] (twoPane 0.03 0.5) +-- +-- to your defaultLayouts. + combo :: [(Layout, Int)] -> Layout -> Layout combo origls super = Layout { doLayout = \r s -> arrange r (integrate s), modifyLayout = message } where arrange _ [] = return [] -- cgit v1.2.3