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

add StdoutUrgencyHook, to help debug weird client behavior

Browse Source
This commit is contained in:
Devin Mullins 2007-11-12 01:58:55 +00:00
parent 25849e68e0
commit a35b7ab6f3
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
XMonad/Hooks/UrgencyHook.hs
View File

@ -22,7 +22,7 @@ module XMonad.Hooks.UrgencyHook (
withUrgencyHook,
focusUrgent,
readUrgents, withUrgents,
NoUrgencyHook(..),
NoUrgencyHook(..), StdoutUrgencyHook(..),
dzenUrgencyHook, DzenUrgencyHook(..),
seconds
) where
@ -104,9 +104,10 @@ instance UrgencyHook h Window => LayoutModifier (WithUrgencyHook h) Window where
-- bothers you, please submit a bug report.
userCode $ urgencyHook theHook w
adjustUrgents (\ws -> if elem w ws then ws else w : ws)
else
else do
-- Remove window from urgents list when client removes urgency status.
-- The client should do this, e.g., when it receives focus.
userCode $ nonUrgencyHook theHook w
adjustUrgents (delete w)
-- Call logHook after IORef has been modified.
userCode =<< asks (logHook . config)
@ -125,7 +126,9 @@ withUrgencyHook :: (UrgencyHook h Window, LayoutClass l Window) =>
withUrgencyHook theHook = ModifiedLayout $ WithUrgencyHook theHook
class (Read h, Show h) => UrgencyHook h a where
urgencyHook :: h -> a -> X ()
urgencyHook, nonUrgencyHook :: h -> a -> X ()
nonUrgencyHook _ _ = return ()
data NoUrgencyHook = NoUrgencyHook deriving (Read, Show)
@ -149,3 +152,10 @@ instance UrgencyHook DzenUrgencyHook Window where
-- duration and args to dzen.
dzenUrgencyHook :: DzenUrgencyHook
dzenUrgencyHook = DzenUrgencyHook { duration = (5 `seconds`), args = [] }
-- For debugging purposes, really.
data StdoutUrgencyHook = StdoutUrgencyHook deriving (Read, Show)
instance UrgencyHook StdoutUrgencyHook Window where
urgencyHook _ w = io $ putStrLn $ "Urgent: " ++ show w
nonUrgencyHook _ w = io $ putStrLn $ "Not Urgent: " ++ show w