diff options
| -rw-r--r-- | XMonad/Hooks/UrgencyHook.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs index 89bc3c2..a3350d3 100644 --- a/XMonad/Hooks/UrgencyHook.hs +++ b/XMonad/Hooks/UrgencyHook.hs @@ -22,6 +22,7 @@ module XMonad.Hooks.UrgencyHook ( withUrgencyHook, focusUrgent, readUrgents, withUrgents, + NoUrgencyHook(..), dzenUrgencyHook, DzenUrgencyHook(..), seconds ) where @@ -144,6 +145,11 @@ withUrgencyHook theHook = ModifiedLayout $ WithUrgencyHook theHook class (Read h, Show h) => UrgencyHook h a where urgencyHook :: h -> a -> X () +data NoUrgencyHook = NoUrgencyHook deriving (Read, Show) + +instance UrgencyHook NoUrgencyHook Window where + urgencyHook _ _ = return () + data DzenUrgencyHook = DzenUrgencyHook { duration :: Int, args :: [String] } deriving (Read, Show) |