From 7932b8d34f317567c3fef9a7cc0c987daf5cc40a Mon Sep 17 00:00:00 2001
From: Devin Mullins <me@twifkak.com>
Date: Sat, 3 Nov 2007 06:54:58 +0100
Subject: add focusUrgent action, for those too lazy to read

darcs-hash:20071103055458-78224-9fb8fee624a5d2bde6747a20980dc88c6b68b2ca.gz
---
 UrgencyHook.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'UrgencyHook.hs')

diff --git a/UrgencyHook.hs b/UrgencyHook.hs
index 63760f8..e22ee75 100644
--- a/UrgencyHook.hs
+++ b/UrgencyHook.hs
@@ -20,11 +20,14 @@ module XMonadContrib.UrgencyHook (
                                  -- * Usage
                                  -- $usage
                                  withUrgencyHook,
+                                 focusUrgent,
                                  readUrgents,
                                  withUrgents
                                  ) where
 
 import {-# SOURCE #-} Config (urgencyHook, logHook)
+import Operations (windows)
+import qualified StackSet as W
 import XMonad
 import XMonadContrib.LayoutModifier
 
@@ -72,6 +75,12 @@ import Foreign (unsafePerformIO)
 -- The functions readUrgents and withUrgents are there to help you with that.
 -- No example for you.
 
+-- | Focuses the most recently urgent window. Good for what ails ya -- I mean, your keybindings.
+-- Example keybinding:
+-- > , ((modMask              , xK_BackSpace), focusUrgent)
+focusUrgent :: X ()
+focusUrgent = withUrgents $ flip whenJust (windows . W.focusWindow) . listToMaybe
+
 -- | Stores the global set of all urgent windows, across workspaces. Not exported -- use
 -- @readUrgents@ or @withUrgents@ instead.
 {-# NOINLINE urgents #-}
-- 
cgit v1.2.3