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/Sjanssen.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'XMonad/Config/Sjanssen.hs')

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