diff options
| -rw-r--r-- | XMonad/Hooks/UrgencyHook.hs | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs index befb99a..726589c 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 #-} |