change example to dzenUrgencyHook

darcs-hash:20071018022026-78224-801dce0f1fb3cf4affa918665ec8195e50a98c1e.gz

1 files changed, 5 insertions, 12 deletions

diff --git a/UrgencyHook.hs b/UrgencyHook.hs
index 3410163..3c5f3ce 100644
--- a/UrgencyHook.hs
+++ b/UrgencyHook.hs
@@ -45,21 +45,14 @@ import Graphics.X11.Xlib.Extras
 -- messages sent to it. Next, add your actual urgencyHook to Config. This
 -- needs to take a Window and return an X () action. Here's an example:
 --
--- > import Dzen (dzen)
--- > import NamedWindows (getName)
+-- > import XMonadContrib.Dzen
 -- ...
 -- > urgencyHook :: Window -> X ()
--- > urgencyHook w = do
--- >     name <- getName w
--- >     ws <- gets windowset
--- >     whenJust (W.findIndex w ws) (flash name ws)
--- >   where flash name ws index =
--- >               when (index /= W.tag (W.workspace (W.current ws))) $
--- >               dzen (show name ++ " requests your attention on workspace " ++ show index)
+-- > urgencyHook = dzenUrgencyHook (5 `seconds`)
 --
--- This example stands on the shoulders of the NamedWindows and Dzen modules,
--- but you can build whatever urgencyHook you like. Finally, in order to make
--- this compile, open up your Config.hs-boot file and add the following to it:
+-- If you're comfortable with programming in the X monad, then you can build
+-- whatever urgencyHook you like.  Finally, in order to make this compile,
+-- open up your Config.hs-boot file and add the following to it:
 --
 -- > urgencyHook :: Window -> X ()
 --