From 3d8e47448f06632bf3000971cc96bc6885da19cc Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Thu, 14 Jun 2007 14:44:43 +0000
Subject: [PATCH] WorkspaceDir.hs: info and documentation

---
 WorkspaceDir.hs | 45 ++++++++++++++++++++++++++++++++++++---------
 1 file changed, 36 insertions(+), 9 deletions(-)

diff --git a/WorkspaceDir.hs b/WorkspaceDir.hs
index 4b04ff0e..cd84263d 100644
--- a/WorkspaceDir.hs
+++ b/WorkspaceDir.hs
@@ -1,14 +1,29 @@
 {-# OPTIONS -fglasgow-exts #-}
-module XMonadContrib.WorkspaceDir ( workspaceDir, changeDir ) where
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  XMonadContrib.WorkspaceDir
+-- Copyright   :  (c) 2007  David Roundy <droundy@darcs.net>
+-- License     :  BSD3-style (see LICENSE)
+-- 
+-- Maintainer  :  David Roundy <droundy@darcs.net>
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- WorkspaceDir is an exstension to set the current directory in a workspace.
+--
+-- Actually, it sets the current directory in a layout, since there's no way I
+-- know of to attach a behavior to a workspace.  This means that any terminals
+-- (or other programs) pulled up in that workspace (with that layout) will
+-- execute in that working directory.  Sort of handy, I think.
+--
+-----------------------------------------------------------------------------
 
--- to use:
-
--- import XMonadContrib.WorkspaceDir
-
--- defaultLayouts = map (workspaceDir "~") [ tiled, ... ]
-
--- In keybindings:
---  , ((modMask .|. shiftMask, xK_x     ), changeDir ["~","/tmp"])
+module XMonadContrib.WorkspaceDir ( 
+                                   -- * Usage
+                                   -- $usage
+                                   workspaceDir, 
+                                   changeDir
+                                  ) where
 
 import System.Directory ( setCurrentDirectory, getCurrentDirectory )
 import Data.List ( nub )
@@ -17,6 +32,18 @@ import XMonad
 import Operations ( sendMessage )
 import XMonadContrib.Dmenu ( dmenu, runProcessWithInput )
 
+-- $usage
+-- You can use this module with the following in your Config.hs file:
+--
+-- > import XMonadContrib.WorkspaceDir
+-- >
+-- > defaultLayouts = map (workspaceDir "~") [ tiled, ... ]
+--
+-- In keybindings:
+--
+-- >  , ((modMask .|. shiftMask, xK_x     ), changeDir ["~","/tmp"])
+
+
 data Chdir = Chdir String deriving ( Typeable )
 instance Message Chdir