From a80d4e2d36b377b3466db3b2628b9dec71fcfce2 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Sun, 9 Aug 2026 17:22:22 -0600 Subject: I'm not even sure. --- src/Rahm/Desktop/Keys/Dsl2.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Rahm/Desktop/Keys') diff --git a/src/Rahm/Desktop/Keys/Dsl2.hs b/src/Rahm/Desktop/Keys/Dsl2.hs index cd0035a..4aec9db 100644 --- a/src/Rahm/Desktop/Keys/Dsl2.hs +++ b/src/Rahm/Desktop/Keys/Dsl2.hs @@ -43,6 +43,7 @@ import Rahm.Desktop.Submap (ButtonOrKeyEvent (ButtonPress, KeyPress, event_keyco import Rahm.Desktop.XMobarLog (spawnXMobar) import Rahm.Desktop.XMobarLog.PendingBuffer (pushAddPendingBuffer, pushPendingBuffer, clearPendingBuffer) import XMonad +import XMonad.Util.Loggers (logSp) -- | A documented "thing." It is essentially an item with a string attached to -- it. A glorified tuple (String, t) @@ -290,6 +291,7 @@ resolveBindings (BindingsMap keyAndKeyCodeBindings buttonBindings _ _) = doSubmap :: forall l. XConfig l -> BindingsMap -> X () -> X () doSubmap conf (BindingsMap kbind bbind catk catb) after = do + logs Info "doSubmap" nextPressEvent $ \str -> \case (ButtonPress m b) -> do @@ -314,7 +316,9 @@ resolveBindings (BindingsMap keyAndKeyCodeBindings buttonBindings _ _) = _ -> False nextPressEvent fn = runMaybeT_ $ do + lift $ logs Info "Waiting for next press event..." ev <- nextButtonOrKeyEvent + lift $ logs Info "Got next press event ..." let str = case ev of ButtonPress m b -> "b" ++ show b KeyPress _ _ _ s -> s -- cgit