1 files changed, 29 insertions, 4 deletions
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 <droundy@darcs.net>
+-- License     :  BSD-style (see LICENSE)
+-- 
+-- Maintainer  :  David Roundy <droundy@darcs.net>
+-- 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 []