fix stupid dzenUrgencyHook bug

darcs-hash:20071021061308-78224-96477769360471294a05d1dc69083fee7436c6a5.gz

1 files changed, 3 insertions, 4 deletions

diff --git a/Dzen.hs b/Dzen.hs
index 5d09e5d..807e266 100644
--- a/Dzen.hs
+++ b/Dzen.hs
@@ -43,15 +43,14 @@ dzenScreen sc str timeout = dzenWithArgs str ["-xs", screen] timeout
 -- | Flashes when a window requests your attention and you can't see it. For use with
 -- XMonadContrib.UrgencyHook. Usage:
 -- > urgencyHook = dzenUrgencyHook (5 `seconds`)
--- Bug: Doesn't flash if you're on the same workspace, Full or Tabbed layout, different window.
 dzenUrgencyHook :: Int -> Window -> X ()
 dzenUrgencyHook duration w = do
     visibles <- gets mapped
     name <- getName w
     ws <- gets windowset
-    whenJust (W.findIndex w ws) (flash name ws visibles)
-  where flash name ws visibles index =
-              when (index /= W.tag (W.workspace (W.current ws)) && not (S.member w visibles)) $
+    whenJust (W.findIndex w ws) (flash name visibles)
+  where flash name visibles index =
+              when (not $ S.member w visibles) $
               dzen (show name ++ " requests your attention on workspace " ++ index) duration
 
 dzenWithArgs :: String -> [String] -> Int -> X ()