jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-29 10:54:48 +03:00
Code Issues Projects Releases Wiki Activity

CustomKeybindingDemo: layout improvements

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-08-04 19:21:38 -07:00
parent b8735a16bc
commit 3817b456e8
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
programs/CustomKeybindingDemo.hs
View File

@ -100,13 +100,24 @@ drawUi :: St -> [Widget ()]
drawUi st = [body] drawUi st = [body]
where where
binding = uncurry K.binding <$> st^.lastKey binding = uncurry K.binding <$> st^.lastKey
keybindingHelp = K.keybindingHelpWidget (st^.keyConfig) handlers
status = hLimit 40 $ -- Generate key binding help using the library so we can embed
-- it in the UI.
keybindingHelp = B.borderWithLabel (txt "Active Keybindings") $
K.keybindingHelpWidget (st^.keyConfig) handlers
-- 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 $ padRight Max $
vBox [ txt $ "Last key: " <> maybe "(none)" K.ppBinding binding vBox [ txt $ "Last key: " <> maybe "(none)" K.ppBinding binding
, str $ "Last key handled: " <> show (st^.lastKeyHandled) , str $ "Last key handled: " <> show (st^.lastKeyHandled)
, str $ "Counter: " <> show (st^.counter) , str $ "Counter: " <> show (st^.counter)
] ]
-- Show info about whether the application is currently using
-- custom bindings loaded from an INI file.
customBindingInfo = customBindingInfo =
B.borderWithLabel (txt "Custom Bindings") $ B.borderWithLabel (txt "Custom Bindings") $
case st^.loadedCustomBindings of case st^.loadedCustomBindings of
@ -119,11 +130,10 @@ drawUi st = [body]
"Pass its path to this " <> "Pass its path to this " <>
"program on the command line." "program on the command line."
Just f -> str "Loaded custom bindings from:" <=> str (show f) Just f -> str "Loaded custom bindings from:" <=> str (show f)
body = C.center $ body = C.center $
((padRight (Pad 7) $ (padRight (Pad 2) $ status <=> customBindingInfo) <+>
(B.borderWithLabel (txt "Status") status) <=> customBindingInfo) keybindingHelp
) <+>
B.borderWithLabel (txt "Active Keybindings") keybindingHelp
app :: M.App St e () app :: M.App St e ()
app = app =