From c3d5c09e84ea96f85b428f74deff6aeecd4be1c6 Mon Sep 17 00:00:00 2001
From: Devin Mullins <me@twifkak.com>
Date: Tue, 9 Sep 2008 05:54:25 +0000
Subject: [PATCH] add clearUrgents for your keys

---
 XMonad/Hooks/UrgencyHook.hs | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs
index befb99ac..726589cb 100644
--- a/XMonad/Hooks/UrgencyHook.hs
+++ b/XMonad/Hooks/UrgencyHook.hs
@@ -54,12 +54,12 @@ module XMonad.Hooks.UrgencyHook (
                                  withUrgencyHook, withUrgencyHookC,
                                  UrgencyConfig(..), urgencyConfig,
                                  SuppressWhen(..), RemindWhen(..),
-                                 minutes,
-                                 focusUrgent,
+                                 focusUrgent, clearUrgents,
                                  dzenUrgencyHook,
-                                 DzenUrgencyHook(..), seconds,
+                                 DzenUrgencyHook(..),
                                  NoUrgencyHook(..),
                                  FocusHook(..),
+                                 minutes, seconds,
                                  -- * Stuff for developers:
                                  readUrgents, withUrgents,
                                  StdoutUrgencyHook(..),
@@ -256,6 +256,13 @@ urgencyConfig = UrgencyConfig { suppressWhen = Visible, remindWhen = Dont }
 focusUrgent :: X ()
 focusUrgent = withUrgents $ flip whenJust (windows . W.focusWindow) . listToMaybe
 
+-- | Just makes the urgents go away.
+-- Example keybinding:
+--
+-- > , ((modMask .|. shiftMask, xK_BackSpace), clearUrgents)
+clearUrgents :: X ()
+clearUrgents = adjustUrgents (const []) >> adjustReminders (const [])
+
 -- | Stores the global set of all urgent windows, across workspaces. Not exported -- use
 -- 'readUrgents' or 'withUrgents' instead.
 {-# NOINLINE urgents #-}