From e75f0cdb019414deb81f14ff4f73ccd73c6f23b2 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
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 ++----
 XMonad/Config/Droundy.hs  | 8 ++------
 XMonad/Config/Sjanssen.hs | 4 +---
 3 files changed, 5 insertions(+), 13 deletions(-)

(limited to 'XMonad')

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 $
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
          }
diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index 4182c8e..d97d518 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/XMonad/Config/Sjanssen.hs
@@ -26,7 +26,7 @@ sjanssenConfigXmobar = statusBar "exec xmobar" sjanssenPP strutkey =<< sjanssenC
 
 sjanssenConfig = do
     sp <- mkSpawner
-    return $ defaultConfig
+    return . ewmh $ defaultConfig
         { terminal = "exec urxvt"
         , workspaces = ["irc", "web"] ++ map show [3 .. 9 :: Int]
         , mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $
@@ -35,8 +35,6 @@ sjanssenConfig = do
                 , ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ]
         , keys = \c -> mykeys sp c `M.union` keys defaultConfig c
         , layoutHook  = modifiers layouts
-        , logHook     = ewmhDesktopsLogHook
-        , startupHook = ewmhDesktopsStartup
         , manageHook  = composeAll [className =? x --> doShift w
                                     | (x, w) <- [ ("Firefox", "web")
                                                 , ("Ktorrent", "7")
-- 
cgit v1.2.3