diff options
| -rw-r--r-- | XMonad/Config.hs | 3 | ||||
| -rw-r--r-- | 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 } |