jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-09-11 23:57:22 +03:00
Code Issues Projects Releases Wiki Activity

CustomKeybindingDemo: add another fixed key handler

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-08-02 20:13:01 -07:00
parent a768c6600d
commit 4225f813a2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
programs/CustomKeybindingDemo.hs
View File

@ -69,10 +69,12 @@ handlers =
, K.onEvent DecrementEvent "Decrement the counter" $
counter %= subtract 1
-- This handler is always triggered by a specific key and thus
-- cannot be rebound to another key.
-- These handlers are always triggered by specific keys and thus
-- cannot be rebound.
, K.onKey (K.bind '\t') "Increment the counter by 10" $
counter %= (+ 10)
, K.onKey (K.bind V.KBackTab) "Decrement the counter by 10" $
counter %= subtract 10
]
appEvent :: T.BrickEvent () e -> T.EventM () St ()