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

1 files changed, 5 insertions, 0 deletions

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