From 18a7422064d99f0d775a7777750d29e109dcba4e Mon Sep 17 00:00:00 2001
From: wirtwolff <wirtwolff@gmail.com>
Date: Mon, 9 Feb 2009 19:38:37 +0100
Subject: X.Config.hs, ./man/xmonad.hs: update Event Hook doc

Ignore-this: 3792043278932e371e3e2858913a2b17

darcs-hash:20090209183837-d17f0-da898b508e3a69f030de7de69c738065d1e8c81f
---
 XMonad/Config.hs |  3 ++-
 man/xmonad.hs    | 23 +++++++++++++++++------
 2 files changed, 19 insertions(+), 7 deletions(-)

diff --git a/XMonad/Config.hs b/XMonad/Config.hs
index 112ed17..c05c1b1 100644
--- a/XMonad/Config.hs
+++ b/XMonad/Config.hs
@@ -127,7 +127,8 @@ logHook = return ()
 -- Event handling
 
 -- | Defines a custom handler function for X Events. The function should
--- return True if the default handler is to be run afterwards.
+-- return (All True) if the default handler is to be run afterwards.
+-- To combine event hooks, use mappend or mconcat from Data.Monoid.
 handleEventHook :: Event -> X All
 handleEventHook _ = return (All True)
 
diff --git a/man/xmonad.hs b/man/xmonad.hs
index af69aa9..f721287 100644
--- a/man/xmonad.hs
+++ b/man/xmonad.hs
@@ -18,6 +18,10 @@ import qualified Data.Map        as M
 --
 myTerminal      = "xterm"
 
+-- Whether focus follows the mouse pointer.
+myFocusFollowsMouse :: Bool
+myFocusFollowsMouse = True
+
 -- Width of the window border in pixels.
 --
 myBorderWidth   = 1
@@ -74,7 +78,7 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
     -- launch gmrun
     , ((modMask .|. shiftMask, xK_p     ), spawn "gmrun")
 
-    -- close focused window 
+    -- close focused window
     , ((modMask .|. shiftMask, xK_c     ), kill)
 
      -- Rotate through the available layout algorithms
@@ -216,10 +220,16 @@ myManageHook = composeAll
     , resource  =? "desktop_window" --> doIgnore
     , resource  =? "kdesktop"       --> doIgnore ]
 
--- Whether focus follows the mouse pointer.
-myFocusFollowsMouse :: Bool
-myFocusFollowsMouse = True
+------------------------------------------------------------------------
+-- Event handling
 
+-- * EwmhDesktops users should change this to ewmhDesktopsEventHook
+--
+-- Defines a custom handler function for X Events. The function should
+-- return (All True) if the default handler is to be run afterwards. To
+-- combine event hooks use mappend or mconcat from Data.Monoid.
+--
+myEventHook = handleEventHook
 
 ------------------------------------------------------------------------
 -- Status bars and logging
@@ -251,9 +261,9 @@ myStartupHook = return ()
 main = xmonad defaults
 
 -- A structure containing your configuration settings, overriding
--- fields in the default config. Any you don't override, will 
+-- fields in the default config. Any you don't override, will
 -- use the defaults defined in xmonad/XMonad/Config.hs
--- 
+--
 -- No need to modify this.
 --
 defaults = defaultConfig {
@@ -274,6 +284,7 @@ defaults = defaultConfig {
       -- hooks, layouts
         layoutHook         = myLayout,
         manageHook         = myManageHook,
+        handleEventHook    = myEventHook,
         logHook            = myLogHook,
         startupHook        = myStartupHook
     }
-- 
cgit v1.2.3