change example to dzenUrgencyHook

This commit is contained in:
Devin Mullins
2007-10-18 02:20:26 +00:00
parent 06aa06ecdb
commit 883af044fb

View File

@@ -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 ()
--