Put screenshots inline for L.ThreeColumns and L.Roledex

Ignore-this: df314db757ad09bb7185c16cca8649d3

darcs-hash:20091012042651-1499c-ccc31e37605eef5ed7a72dc81218b90b991eeb23.gz

2 files changed, 13 insertions, 5 deletions

diff --git a/XMonad/Layout/Roledex.hs b/XMonad/Layout/Roledex.hs
index 1d4343e..2a130c1 100644
--- a/XMonad/Layout/Roledex.hs
+++ b/XMonad/Layout/Roledex.hs
@@ -10,14 +10,15 @@
 -- Stability   :  unstable
 -- Portability :  unportable
 --
--- Screenshot  :  <http://www.timthelion.com/rolodex.png>
---
 -- This is a completely pointless layout which acts like Microsoft's Flip 3D
 -----------------------------------------------------------------------------
 
 module XMonad.Layout.Roledex (
     -- * Usage
     -- $usage
+
+    -- * Screenshots
+    -- $screenshot
     Roledex(Roledex)) where
 
 import XMonad
@@ -38,6 +39,9 @@ import Data.Ratio
 --
 -- "XMonad.Doc.Extending#Editing_the_layout_hook"
 
+-- $screenshot
+-- <<http://www.timthelion.com/rolodex.png>>
+
 data Roledex a = Roledex deriving ( Show, Read )
 
 instance LayoutClass Roledex Window where
diff --git a/XMonad/Layout/ThreeColumns.hs b/XMonad/Layout/ThreeColumns.hs
index ae33f33..7fe0d22 100644
--- a/XMonad/Layout/ThreeColumns.hs
+++ b/XMonad/Layout/ThreeColumns.hs
@@ -13,14 +13,14 @@
 -- A layout similar to tall but with three columns. With 2560x1600 pixels this
 -- layout can be used for a huge main window and up to six reasonable sized
 -- slave windows.
---
--- Screenshot: <http://server.c-otto.de/xmonad/ThreeColumnsMiddle.png>
---
 -----------------------------------------------------------------------------
 
 module XMonad.Layout.ThreeColumns (
                               -- * Usage
                               -- $usage
+
+                              -- * Screenshots
+                              -- $screenshot
                               ThreeCol(..)
                              ) where
 
@@ -55,6 +55,10 @@ import Control.Monad
 --
 -- "XMonad.Doc.Extending#Editing_the_layout_hook"
 
+
+-- $screenshot
+-- <<http://server.c-otto.de/xmonad/ThreeColumnsMiddle.png>>
+
 -- | Arguments are nmaster, delta, fraction
 data ThreeCol a = ThreeColMid { threeColNMaster :: !Int, threeColDelta :: !Rational, threeColFrac :: !Rational}
                 | ThreeCol    { threeColNMaster :: !Int, threeColDelta :: !Rational, threeColFrac :: !Rational}