From 6684e84f50d60cea956704be91d8ad7e0975564a Mon Sep 17 00:00:00 2001 From: Justin Bogner Date: Sun, 11 Oct 2009 07:35:38 +0200 Subject: Move EWMH support initialization to a startupHook Ignore-this: bd35654d0afb0a2fec73b16ab7ac38b1 Set EWMH support atoms and the window manager name in a startup hook, rather than in the log hook: the log hook occurs far too frequently for it to make sense to set constants with it. darcs-hash:20091011053538-18f27-82f5abfaeba77a65ca836222d089c92d581b25bf.gz --- XMonad/Config/Droundy.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'XMonad/Config/Droundy.hs') diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs index b5af291..61e17c5 100644 --- a/XMonad/Config/Droundy.hs +++ b/XMonad/Config/Droundy.hs @@ -43,7 +43,7 @@ import XMonad.Actions.CycleWS ( moveTo, WSType( HiddenNonEmptyWS ), Direction1D( Prev, Next) ) import XMonad.Hooks.ManageDocks ( avoidStruts, manageDocks ) -import XMonad.Hooks.EwmhDesktops ( ewmhDesktopsLogHook, +import XMonad.Hooks.EwmhDesktops ( ewmhDesktopsStartup, ewmhDesktopsLogHook, ewmhDesktopsEventHook ) myXPConfig :: XPConfig @@ -132,6 +132,7 @@ config = defaultConfig --mosaic 0.25 0.5 , manageHook = manageHook defaultConfig <+> manageDocks -- add panel-handling , logHook = ewmhDesktopsLogHook -- actually, no logging here, just other stuff + , startupHook = ewmhDesktopsStartup , terminal = "xterm" -- The preferred terminal program. , normalBorderColor = "#222222" -- Border color for unfocused windows. , focusedBorderColor = "#00ff00" -- Border color for focused windows. -- cgit v1.2.3