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