From a4e48a48bfc8504d759e2964b9184ed762cb4bf0 Mon Sep 17 00:00:00 2001
From: gwern0 <gwern0@gmail.com>
Date: Thu, 17 Jul 2008 00:47:45 +0200
Subject: XMonad.Hooks.UrgencyHook: +FocusHook

This is a hook for simply traveling to whatever window has just set an urgent flag, instead of doing something more involved like printing to a status bar and letting the user do something manually.

darcs-hash:20080716224745-f7719-4fa145f9754e829bea78c89ede58ca01e3187e14.gz
---
 XMonad/Hooks/UrgencyHook.hs | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs
index 3c1d1d9..ce7bd3c 100644
--- a/XMonad/Hooks/UrgencyHook.hs
+++ b/XMonad/Hooks/UrgencyHook.hs
@@ -57,7 +57,7 @@ module XMonad.Hooks.UrgencyHook (
                                  dzenUrgencyHook,
                                  DzenUrgencyHook(..), seconds,
                                  NoUrgencyHook(..),
-
+                                 FocusHook(..),
                                  -- * Stuff for developers:
                                  readUrgents, withUrgents,
                                  StdoutUrgencyHook(..),
@@ -338,6 +338,17 @@ instance UrgencyHook DzenUrgencyHook where
       where flash name index =
                   dzenWithArgs (show name ++ " requests your attention on workspace " ++ index) a d
 
+{- | A hook which will automatically send you to anything which sets the urgent
+  flag (as opposed to printing some sort of message. You would use this as
+  usual, eg.
+
+  > withUrgencyHook FocusHook $ myconfig { ...
+-}
+data FocusHook = FocusHook deriving (Read, Show)
+
+instance UrgencyHook FocusHook where
+    urgencyHook _ _ = focusUrgent
+
 -- | Flashes when a window requests your attention and you can't see it.
 -- Defaults to a duration of five seconds, and no extra args to dzen.
 -- See 'DzenUrgencyHook'.
-- 
cgit v1.2.3