From 073cc91641642c9ee760e5c3453a767b23c9ddc7 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Fri, 23 Oct 2009 05:46:30 +0200 Subject: Add ewmh function to set all EWMH settings in one step Ignore-this: 4d79c1e156f56882036ce43e70cce6f2 darcs-hash:20091023034630-25a6b-3a5055d46b632bd7c898e2904f145718f392bd6e.gz --- XMonad/Hooks/EwmhDesktops.hs | 13 +++++++++---- 1 file 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) -- cgit v1.2.3