From 2f7793303bf96800eff96df3531fbb6eb261a9e2 Mon Sep 17 00:00:00 2001
From: Ben Boeckel <mathstuf@gmail.com>
Date: Sun, 15 May 2011 21:17:18 +0200
Subject: add-willhook-function

Ignore-this: 9db50eec5b91baa973b4a92c72aeceaf

Adds a function that hooks into whether the hook will be triggered on the next
request.

darcs-hash:20110515191718-24e3f-997c368f871dfcfa594662b9fb889ceb9a327fef.gz
---
 XMonad/Hooks/ToggleHook.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'XMonad/Hooks/ToggleHook.hs')

diff --git a/XMonad/Hooks/ToggleHook.hs b/XMonad/Hooks/ToggleHook.hs
index a61a73f..aec71f3 100644
--- a/XMonad/Hooks/ToggleHook.hs
+++ b/XMonad/Hooks/ToggleHook.hs
@@ -26,6 +26,7 @@ module XMonad.Hooks.ToggleHook ( -- * Usage
                                , toggleHookAllNew
 
                                  -- * Queries
+                               , willHook
                                , willHookNext
                                , willHookAllNew
 
@@ -127,6 +128,10 @@ hookAllNew n = _set n second
 toggleHookAllNew :: String -> X ()
 toggleHookAllNew n = _toggle n second
 
+-- | Query what will happen at the next ManageHook call for the hook @name@.
+willHook :: String -> X Bool
+willHook n = willHookNext n <||> willHookAllNew n
+
 -- | Whether the next window will trigger the hook @name@.
 willHookNext :: String -> X Bool
 willHookNext n = _get n fst
-- 
cgit v1.2.3