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/Droundy.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'XMonad/Config/Droundy.hs') diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs index 61e17c5..067c8e7 100644 --- a/XMonad/Config/Droundy.hs +++ b/XMonad/Config/Droundy.hs @@ -43,8 +43,7 @@ import XMonad.Actions.CycleWS ( moveTo, WSType( HiddenNonEmptyWS ), Direction1D( Prev, Next) ) import XMonad.Hooks.ManageDocks ( avoidStruts, manageDocks ) -import XMonad.Hooks.EwmhDesktops ( ewmhDesktopsStartup, ewmhDesktopsLogHook, - ewmhDesktopsEventHook ) +import XMonad.Hooks.EwmhDesktops ( ewmh ) myXPConfig :: XPConfig myXPConfig = defaultXPConfig {font="-*-lucida-medium-r-*-*-14-*-*-*-*-*-*-*" @@ -118,7 +117,7 @@ keys x = M.fromList $ ++ zip (zip (repeat (modMask x .|. shiftMask)) [xK_F1..xK_F12]) (map (withNthWorkspace copy) [0..]) -config = defaultConfig +config = ewmh defaultConfig { borderWidth = 1 -- Width of the window border in pixels. , XMonad.workspaces = ["mutt","iceweasel"] , layoutHook = showWName $ workspaceDir "~" $ @@ -131,12 +130,9 @@ config = defaultConfig ****//* combineTwo Square mytab mytab) -- ||| --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. - , handleEventHook = ewmhDesktopsEventHook , XMonad.modMask = mod1Mask , XMonad.keys = keys } -- cgit v1.2.3