From 0f7398267c865d6cb403547f5dd0e4ffce72d371 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Fri, 16 Oct 2009 17:55:18 +0200
Subject: Add more links in L.SubLayout documentation

Ignore-this: 70347cc0bcf4966e6c07f45740882087

darcs-hash:20091016155518-1499c-4bf9e33e25bcf016f5b964f37efcf0a7a5ac72cc.gz
---
 XMonad/Layout/SubLayouts.hs | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/Layout/SubLayouts.hs b/XMonad/Layout/SubLayouts.hs
index f235f2a..3f362f1 100644
--- a/XMonad/Layout/SubLayouts.hs
+++ b/XMonad/Layout/SubLayouts.hs
@@ -36,6 +36,8 @@ module XMonad.Layout.SubLayouts (
     )
     where
 
+import XMonad.Layout.Circle () -- so haddock can find the link
+
 import XMonad.Layout.Decoration(Decoration, DefaultShrinker)
 import XMonad.Layout.LayoutModifier(LayoutModifier(handleMess, modifyLayout,
                                     redoLayout),
@@ -111,12 +113,12 @@ import Data.Map(Map)
 -- > import XMonad.Layout.SubLayouts
 -- > import XMonad.Layout.WindowNavigation
 --
--- Using BoringWindows is optional and it allows you to add a keybinding to
--- skip over the non-visible windows.
+-- Using "XMonad.Layout.BoringWindows" is optional and it allows you to add a
+-- keybinding to skip over the non-visible windows.
 --
 -- > import XMonad.Layout.BoringWindows
 --
--- Then edit your @layoutHook@ by adding the subTabbed layout modifier:
+-- Then edit your @layoutHook@ by adding the 'subTabbed' layout modifier:
 --
 -- > myLayouts = windowNavigation $ subTabbed $ boringWindows $
 -- >                        Tall 1 (3/100) (1/2) ||| etc..
@@ -170,7 +172,7 @@ import Data.Map(Map)
 --
 --  [@x@] The layout that determines the rectangles that the groups get.
 --
---  Ex. The second group is Tall, the third is Circle, all others are tabbed
+--  Ex. The second group is 'Tall', the third is 'Circle', all others are tabbed
 --  with:
 --
 --  > myLayout = addTabs shrinkText defaultTheme
@@ -179,7 +181,7 @@ import Data.Map(Map)
 subLayout :: [Int] -> subl a -> l a -> ModifiedLayout (Sublayout subl) l a
 subLayout nextLayout sl x = ModifiedLayout (Sublayout (I []) (nextLayout,sl) []) x
 
--- | 'subLayout' but use 'XMonad.Layout.Tabbed.addTabs' to add decorations.
+-- | @subTabbed@ is a use of 'subLayout' with 'addTabs' to show decorations.
 subTabbed :: (Eq a, LayoutModifier (Sublayout Simplest) a, LayoutClass l a) =>
     l a -> ModifiedLayout (Decoration TabbedDecoration DefaultShrinker)
                           (ModifiedLayout (Sublayout Simplest) l) a
-- 
cgit v1.2.3