diff options
Diffstat (limited to 'src/Rahm/Desktop/Keys')
| -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 |