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

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-08-08 14:15:09 -07:00
parent 65309104c3
commit 776f631f23
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
programs/CustomKeybindingDemo.hs
View File

@ -112,7 +112,7 @@ drawUi st = [body]
status = B.borderWithLabel (txt "Status") $
hLimit 40 $
padRight Max $
vBox [ txt $ "Last key: " <> maybe "(none)" K.ppBinding binding
vBox [ txt "Last key: " <+> (withDefAttr lastKeyAttr $ txt $ maybe "(none)" K.ppBinding binding)
, str $ "Last key handled: " <> show (st^.lastKeyHandled)
, str $ "Counter: " <> show (st^.counter)
]
@ -136,6 +136,9 @@ drawUi st = [body]
(padRight (Pad 2) $ status <=> customBindingInfo) <+>
keybindingHelp
lastKeyAttr :: AttrName
lastKeyAttr = attrName "lastKey"
app :: M.App St e ()
app =
M.App { M.appDraw = drawUi
@ -144,6 +147,7 @@ app =
, M.appAttrMap = const $ attrMap V.defAttr [ (K.eventNameAttr, fg V.magenta)
, (K.eventDescriptionAttr, fg V.cyan)
, (K.keybindingAttr, fg V.yellow)
, (lastKeyAttr, fg V.white `V.withStyle` V.bold)
]
, M.appChooseCursor = M.showFirstCursor
}