diff options
| author | Josh Rahm <rahm@josher.dev> | 2026-08-09 17:22:22 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@josher.dev> | 2026-08-09 17:22:22 -0600 |
| commit | a80d4e2d36b377b3466db3b2628b9dec71fcfce2 (patch) | |
| tree | a9109869c6bc4516ebeccc80b68fc314031e08aa /src/Rahm/Desktop/Keys/Dsl2.hs | |
| parent | a66a73ebe45cbad857f8a2e30050cb94cc1ace39 (diff) | |
| download | rde-main.tar.gz rde-main.tar.bz2 rde-main.zip | |
Diffstat (limited to 'src/Rahm/Desktop/Keys/Dsl2.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys/Dsl2.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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 |