From 8cc604c4ad606963d2934e6a446ab522e3419d96 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Mon, 8 Mar 2010 22:52:58 +0000 Subject: [PATCH] Correct L.Drawer haddock markup and re-export required module. --- XMonad/Layout/Drawer.hs | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/XMonad/Layout/Drawer.hs b/XMonad/Layout/Drawer.hs index ce6d901b..04e900e5 100644 --- a/XMonad/Layout/Drawer.hs +++ b/XMonad/Layout/Drawer.hs @@ -27,6 +27,8 @@ module XMonad.Layout.Drawer -- * Placing drawers -- The drawer can be placed on any side of the screen with these functions , onLeft, onTop, onRight, onBottom + + , module XMonad.Util.WindowProperties ) where import XMonad @@ -38,18 +40,17 @@ import XMonad.Layout.Reflect -- $usage -- To use this module, add the following import to @~\/.xmonad\/xmonad.hs@: -- --- @ --- import XMonad.Layout.Drawer --- import "XMonad.Util.WindowProperties" +-- > import XMonad.Layout.Drawer -- --- myLayout = drawer \``onTop'\` (Tall 1 0.03 0.5) ||| Full ||| RandomOtherLayout... --- where --- drawer = 'simpleDrawer' 0.01 0.3 (ClassName \"Rhythmbox\" \`Or\` ClassName \"Xchat\") --- main = xmonad defaultConfig { layoutHook = myLayout } --- @ +-- > myLayout = drawer `onTop` (Tall 1 0.03 0.5) ||| Full ||| RandomOtherLayout... +-- > where +-- > drawer = simpleDrawer 0.01 0.3 (ClassName "Rhythmbox" `Or` ClassName "Xchat") +-- > +-- > main = xmonad defaultConfig { layoutHook = myLayout } -- --- This will place the Rhythmbox and Xchat windows in at the top of the screen. --- See "XMonad.Util.WindowProperties" for more information on selecting windows. +-- This will place the Rhythmbox and Xchat windows in at the top of the screen +-- only when using the 'Tall' layout. See "XMonad.Util.WindowProperties" for +-- more information on selecting windows. data Drawer l a = Drawer Rational Rational Property (l a) deriving (Read, Show)