From dad63f81a9ac309f3c43cc79b7d8f07428c876e8 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Mon, 8 Mar 2010 23:52:58 +0100 Subject: Correct L.Drawer haddock markup and re-export required module. Ignore-this: 1cc5675a68a66cf436817137a478b747 darcs-hash:20100308225258-1499c-18bfb1da09948a660aca306f500df55103226bf2.gz --- 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 ce6d901..04e900e 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) -- cgit v1.2.3