twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

add clearUrgents for your keys

Browse Source
This commit is contained in:
Devin Mullins 2008-09-09 05:54:25 +00:00
parent 27efc7a626
commit c3d5c09e84
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
XMonad/Hooks/UrgencyHook.hs
View File

@ -54,12 +54,12 @@ module XMonad.Hooks.UrgencyHook (
withUrgencyHook, withUrgencyHookC, withUrgencyHook, withUrgencyHookC,
UrgencyConfig(..), urgencyConfig, UrgencyConfig(..), urgencyConfig,
SuppressWhen(..), RemindWhen(..), SuppressWhen(..), RemindWhen(..),
minutes, focusUrgent, clearUrgents,
focusUrgent,
dzenUrgencyHook, dzenUrgencyHook,
DzenUrgencyHook(..), seconds, DzenUrgencyHook(..),
NoUrgencyHook(..), NoUrgencyHook(..),
FocusHook(..), FocusHook(..),
minutes, seconds,
-- * Stuff for developers: -- * Stuff for developers:
readUrgents, withUrgents, readUrgents, withUrgents,
StdoutUrgencyHook(..), StdoutUrgencyHook(..),
@ -256,6 +256,13 @@ urgencyConfig = UrgencyConfig { suppressWhen = Visible, remindWhen = Dont }
focusUrgent :: X () focusUrgent :: X ()
focusUrgent = withUrgents $ flip whenJust (windows . W.focusWindow) . listToMaybe 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 -- | Stores the global set of all urgent windows, across workspaces. Not exported -- use
-- 'readUrgents' or 'withUrgents' instead. -- 'readUrgents' or 'withUrgents' instead.
{-# NOINLINE urgents #-} {-# NOINLINE urgents #-}