From d15ea771e45b60f32c83bfd90386c60d192299c0 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Mon, 28 Mar 2022 11:52:34 -0600
Subject: Add (some) ability to send keys to other windows

---
 src/Internal/RebindKeys.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Internal/RebindKeys.hs')

diff --git a/src/Internal/RebindKeys.hs b/src/Internal/RebindKeys.hs
index 22b0165..7c5d47c 100644
--- a/src/Internal/RebindKeys.hs
+++ b/src/Internal/RebindKeys.hs
@@ -91,6 +91,12 @@ remapKey keyFrom action = do
     XS.modify $ \(RemapState (NoPersist keyMap)) -> RemapState $ NoPersist $
       Map.insert (window, keyFrom) action keyMap
 
+-- sendKey, but as a query.
+sendKeyQ :: (KeyMask, KeySym) -> Query ()
+sendKeyQ key = do
+  win <- ask
+  liftX (sendKey key win)
+
 sendKey :: (KeyMask, KeySym) -> Window -> X ()
 sendKey (keymask, keysym) w = do
   XConf { display = disp, theRoot = rootw } <- ask
-- 
cgit