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/Desktop.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'XMonad/Config/Desktop.hs') diff --git a/XMonad/Config/Desktop.hs b/XMonad/Config/Desktop.hs index e72e461..bb4ae74 100644 --- a/XMonad/Config/Desktop.hs +++ b/XMonad/Config/Desktop.hs @@ -170,9 +170,8 @@ desktopConfig = defaultConfig { logHook = ewmhDesktopsLogHook , layoutHook = desktopLayoutModifiers $ layoutHook defaultConfig , manageHook = manageHook defaultConfig <+> manageDocks - , startupHook = setDefaultCursor xC_left_ptr , handleEventHook = ewmhDesktopsEventHook - , keys = \c -> desktopKeys c `M.union` keys defaultConfig c } + , keys = \c -> desktopKeys c `M.union` keys defaultConfig c } desktopKeys (XConfig {modMask = modm}) = M.fromList $ [ ((modm, xK_b), sendMessage ToggleStruts) ] -- cgit v1.2.3