From 583b2c1928bf8fdc734602dd24478b3fec68ce28 Mon Sep 17 00:00:00 2001 From: Devin Mullins Date: Mon, 14 Jul 2008 06:30:20 +0200 Subject: callUrgencyHook after adjustUrgents So folks can readUrgents inside their urgencyHook, should they so desire. darcs-hash:20080714043020-78224-b75d65a74cda046369c256bcd3d0813c20219204.gz --- XMonad/Hooks/UrgencyHook.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs index 96c2832..3c1d1d9 100644 --- a/XMonad/Hooks/UrgencyHook.hs +++ b/XMonad/Hooks/UrgencyHook.hs @@ -273,10 +273,10 @@ instance UrgencyHook h => EventHook (WithUrgencyHook h) where when (t == propertyNotify && a == wM_HINTS) $ withDisplay $ \dpy -> do WMHints { wmh_flags = flags } <- io $ getWMHints dpy w if (testBit flags urgencyHintBit) then do - -- Call the urgencyHook. - callUrgencyHook wuh w -- Add to list of urgents. adjustUrgents (\ws -> if elem w ws then ws else w : ws) + -- Call the urgencyHook. + callUrgencyHook wuh w else do -- Remove from list of urgents. adjustUrgents (delete w) -- cgit v1.2.3