aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDevin Mullins <me@twifkak.com>2008-09-09 07:54:25 +0200
committerDevin Mullins <me@twifkak.com>2008-09-09 07:54:25 +0200
commitf8d5448d978d8131550c43cfa5f7ad79a004753d (patch)
tree377e74e4ca8970045c4a66cd3e41bb37c3839a61
parenta24b00383d2fc2b80972fa3da739fdf47f8d5d65 (diff)
downloadXMonadContrib-f8d5448d978d8131550c43cfa5f7ad79a004753d.tar.gz
XMonadContrib-f8d5448d978d8131550c43cfa5f7ad79a004753d.tar.xz
XMonadContrib-f8d5448d978d8131550c43cfa5f7ad79a004753d.zip
add clearUrgents for your keys
darcs-hash:20080909055425-78224-8e7f84338523dd20d96de740137b10e3e9666bd1.gz
-rw-r--r--XMonad/Hooks/UrgencyHook.hs13
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 #-}