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: nit

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-08-08 14:19:50 -07:00
parent 776f631f23
commit f4b06804da
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
programs/CustomKeybindingDemo.hs
View File

@ -107,12 +107,15 @@ drawUi st = [body]
keybindingHelp = B.borderWithLabel (txt "Active Keybindings") $
K.keybindingHelpWidget (st^.keyConfig) handlers
lastKeyDisplay = withDefAttr lastKeyAttr $
txt $ maybe "(none)" K.ppBinding binding
-- Show the status of the last pressed key, whether we handled
-- it, and other bits of the application state.
status = B.borderWithLabel (txt "Status") $
hLimit 40 $
padRight Max $
vBox [ txt "Last key: " <+> (withDefAttr lastKeyAttr $ txt $ maybe "(none)" K.ppBinding binding)
vBox [ txt "Last key: " <+> lastKeyDisplay
, str $ "Last key handled: " <> show (st^.lastKeyHandled)
, str $ "Counter: " <> show (st^.counter)
]