From a146adacfc3cde0dee18e05fa365870358adefd3 Mon Sep 17 00:00:00 2001 From: "allbery.b" Date: Thu, 23 Apr 2015 17:44:36 +0200 Subject: ewmh-hook-order Ignore-this: 8c9a760ab88179f6b975c5c05a5426a0 Reorder the application of hooks so that users' config is honored. Notably, this means setWMName works in startupHook instead of needing to do it repeatedly in logHook. darcs-hash:20150423154436-181ff-9773ca353e60c265e5831ee1bdbd993fd067b509.gz --- XMonad/Hooks/EwmhDesktops.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs index 8b3a644..9176691 100644 --- a/XMonad/Hooks/EwmhDesktops.hs +++ b/XMonad/Hooks/EwmhDesktops.hs @@ -55,7 +55,8 @@ 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 + -- @@@ will fix this correctly later with the rewrite + where x +++ y = mappend y x -- | -- Initializes EwmhDesktops and advertises EWMH support to the X -- cgit v1.2.3