From 899bb99fadbe4c696c7fb39ade52b6043b617b76 Mon Sep 17 00:00:00 2001 From: Devin Mullins Date: Sat, 10 Nov 2007 23:58:57 +0000 Subject: [PATCH] add NoUrgencyHook, for shachaf's sake --- XMonad/Hooks/UrgencyHook.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs index 89bc3c20..a3350d31 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)