diff options
Diffstat (limited to 'src/Config.hs')
| -rw-r--r-- | src/Config.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/Config.hs b/src/Config.hs index 0cc1c02..4521cc1 100644 --- a/src/Config.hs +++ b/src/Config.hs @@ -8,12 +8,20 @@ import Wetterhorn.Core.Keys import Wetterhorn.Core.W import Wetterhorn.Layout.Full +alsoLog :: KeyHandler -> W () +alsoLog kh = + putKeyHandler + ( \ke -> do + liftIO $ putStrLn $ (: []) $ KeyEvent.codepoint ke + kh ke + ) + config :: Config WindowLayout config = defaultConfig { hooks = defaultHooks - { keyHook = keys $ do + { keyHook = keysWithHandler alsoLog $ do ignoreReleaseEvents bind (Mod1 .+ 'r') (shellExec "wofi --show run") |