diff options
Diffstat (limited to 'XMonad/Hooks')
| -rw-r--r-- | XMonad/Hooks/UrgencyHook.hs | 9 |
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) |