From e75f0cdb019414deb81f14ff4f73ccd73c6f23b2 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Fri, 23 Oct 2009 05:50:43 +0200 Subject: Use 'ewmh' in relevant configs Ignore-this: 7cac9c6c3795a3fb60899db29cc65d08 darcs-hash:20091023035043-25a6b-a6e2420febdeb9e9710167f852451c2fd7021869.gz --- XMonad/Config/Desktop.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'XMonad/Config/Desktop.hs') diff --git a/XMonad/Config/Desktop.hs b/XMonad/Config/Desktop.hs index 87943c8..1ed164d 100644 --- a/XMonad/Config/Desktop.hs +++ b/XMonad/Config/Desktop.hs @@ -166,12 +166,10 @@ import qualified Data.Map as M -- > adjustEventInput -- -desktopConfig = defaultConfig - { startupHook = ewmhDesktopsStartup >> setDefaultCursor xC_left_ptr - , logHook = ewmhDesktopsLogHook +desktopConfig = ewmh defaultConfig + { startupHook = setDefaultCursor xC_left_ptr , layoutHook = desktopLayoutModifiers $ layoutHook defaultConfig , manageHook = manageHook defaultConfig <+> manageDocks - , handleEventHook = ewmhDesktopsEventHook , keys = \c -> desktopKeys c `M.union` keys defaultConfig c } desktopKeys (XConfig {modMask = modm}) = M.fromList $ -- cgit v1.2.3