From 9c22dc4860dba0498cdc3143db56d8faf27bd0fe Mon Sep 17 00:00:00 2001
From: mail <mail@joachim-breitner.de>
Date: Thu, 27 Dec 2007 20:01:13 +0100
Subject: Although I do not need the curr variable after all, this is nicer

darcs-hash:20071227190113-c9905-048611490504d14ba845350be9e9d56ccabc1284.gz
---
 XMonad/Hooks/EwmhDesktops.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs
index c6fd3a2..f831589 100644
--- a/XMonad/Hooks/EwmhDesktops.hs
+++ b/XMonad/Hooks/EwmhDesktops.hs
@@ -61,10 +61,9 @@ ewmhDesktopsLogHook = withWindowSet $ \s -> do
     setDesktopNames (map W.tag ws)
 
     -- Current desktop
-    fromMaybe (return ()) $ do
-        n <- W.lookupWorkspace 0 s
-        i <- elemIndex n $ map W.tag ws
-        return $ setCurrentDesktop i
+    let curr = fromJust $ elemIndex (W.tag (W.workspace (W.current s))) $ map W.tag ws
+    
+    setCurrentDesktop curr
 
     setClientList wins
 
-- 
cgit v1.2.3