diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Hooks/UrgencyHook.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs index 633503d..1902f03 100644 --- a/XMonad/Hooks/UrgencyHook.hs +++ b/XMonad/Hooks/UrgencyHook.hs @@ -121,6 +121,10 @@ data WithUrgencyHook h a = WithUrgencyHook h deriving (Read, Show) -- the list of urgent windows ourselves, allowing us to clear urgency when a window -- is visible, and not to set urgency if a window is visible. -- If you have a better idea, please, let us know! +-- +-- Update: I'm a doofus. Thanks to arossato's EventHook I see that the "9-10 +-- times" thing was an Urgencyhook bug. If you fix it, and make UrgencyHook +-- ICCCM-compliant, you will win a prize. instance UrgencyHook h Window => LayoutModifier (WithUrgencyHook h) Window where handleMess (WithUrgencyHook hook) mess | Just PropertyEvent { ev_event_type = t, ev_atom = a, ev_window = w } <- fromMessage mess = do |