aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks
diff options
context:
space:
mode:
authorDevin Mullins <me@twifkak.com>2007-11-11 00:58:57 +0100
committerDevin Mullins <me@twifkak.com>2007-11-11 00:58:57 +0100
commit71db1f2ee20d384d4d9f0ce4f8acb79a86ff88c8 (patch)
treedbe5524e961072cd15499d5f9becc40ef4e35231 /XMonad/Hooks
parentfb0ea023a57ea313735e3a70d62794c632c06590 (diff)
downloadXMonadContrib-71db1f2ee20d384d4d9f0ce4f8acb79a86ff88c8.tar.gz
XMonadContrib-71db1f2ee20d384d4d9f0ce4f8acb79a86ff88c8.tar.xz
XMonadContrib-71db1f2ee20d384d4d9f0ce4f8acb79a86ff88c8.zip
add NoUrgencyHook, for shachaf's sake
darcs-hash:20071110235857-78224-5b1417dbede07c8850509972e45dc93db106df62.gz
Diffstat (limited to 'XMonad/Hooks')
-rw-r--r--XMonad/Hooks/UrgencyHook.hs6
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)