SpawnUrgencyHook, FWIW

darcs-hash:20080512040449-78224-22bf6a8ae3f956e58d4dc0142c88643dfcfea5f3.gz

1 files changed, 9 insertions, 0 deletions

diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs
index 516f234..1b895aa 100644
--- a/XMonad/Hooks/UrgencyHook.hs
+++ b/XMonad/Hooks/UrgencyHook.hs
@@ -24,6 +24,7 @@ module XMonad.Hooks.UrgencyHook (
                                  readUrgents, withUrgents,
                                  urgencyLayoutHook,
                                  NoUrgencyHook(..), StdoutUrgencyHook(..),
+                                 SpawnUrgencyHook(..),
                                  dzenUrgencyHook, DzenUrgencyHook(..),
                                  UrgencyHook(urgencyHook),
                                  seconds
@@ -178,6 +179,14 @@ instance UrgencyHook DzenUrgencyHook where
 dzenUrgencyHook :: DzenUrgencyHook
 dzenUrgencyHook = DzenUrgencyHook { duration = (5 `seconds`), args = [] }
 
+-- | Spawn a commandline thing, appending the window id to the prefix string
+-- you provide. (Make sure to add a space if you need it.) Do your crazy compiz
+-- thing.
+newtype SpawnUrgencyHook = SpawnUrgencyHook String deriving (Read, Show)
+
+instance UrgencyHook SpawnUrgencyHook where
+    urgencyHook (SpawnUrgencyHook prefix) w = spawn $ prefix ++ show w
+
 -- For debugging purposes, really.
 data StdoutUrgencyHook = StdoutUrgencyHook deriving (Read, Show)