diff options
Diffstat (limited to 'XMonad/Hooks')
| -rw-r--r-- | XMonad/Hooks/EwmhDesktops.hs | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs index f263941..724cc13 100644 --- a/XMonad/Hooks/EwmhDesktops.hs +++ b/XMonad/Hooks/EwmhDesktops.hs @@ -15,6 +15,7 @@ module XMonad.Hooks.EwmhDesktops ( -- * Usage -- $usage + ewmh, ewmhDesktopsStartup, ewmhDesktopsLogHook, ewmhDesktopsLogHookCustom, @@ -39,13 +40,18 @@ import XMonad.Util.WorkspaceCompare -- > import XMonad -- > import XMonad.Hooks.EwmhDesktops -- > --- > main = xmonad defaultConfig { startupHook = ewmhDesktopsStartup --- > , handleEventHook = ewmhDesktopsEventHook --- > , logHook = ewmhDesktopsLogHook } +-- > main = xmonad $ ewmh defaultConfig -- -- You may also be interested in 'avoidStruts' from XMonad.Hooks.ManageDocks. +-- | Add EWMH functionality to the given config. See above for an example. +ewmh :: XConfig a -> XConfig a +ewmh c = c { startupHook = startupHook c +++ ewmhDesktopsStartup + , handleEventHook = handleEventHook c +++ ewmhDesktopsEventHook + , logHook = logHook c +++ ewmhDesktopsLogHook } + where x +++ y = mappend x y + -- | -- Initializes EwmhDesktops and advertises EWMH support to the X -- server @@ -57,7 +63,6 @@ ewmhDesktopsStartup = setSupported -- of the current state of workspaces and windows. ewmhDesktopsLogHook :: X () ewmhDesktopsLogHook = ewmhDesktopsLogHookCustom id - -- | -- Generalized version of ewmhDesktopsLogHook that allows an arbitrary -- user-specified function to transform the workspace list (post-sorting) |