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

keyHandlersFromConfig: cleanup

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-07-10 13:56:41 -07:00
parent 6c1f357318
commit 6466c4e99d
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Brick/Keybindings/KeyHandlerMap.hs
View File

@ -106,14 +106,13 @@ keyHandlersFromConfig :: (Ord e)
-> KeyEventHandler e m
-> [KeyHandler e m]
keyHandlersFromConfig kc eh =
case kehEventTrigger eh of
Static binding ->
[ KH eh binding ]
ByEvent ev ->
[ KH eh b | b <- allBindings ]
where allBindings | Just (BindingList ks) <- lookupKeyConfigBindings kc ev = ks
| Just Unbound <- lookupKeyConfigBindings kc ev = []
| otherwise = allDefaultBindings kc ev
let allBindingsFor ev | Just (BindingList ks) <- lookupKeyConfigBindings kc ev = ks
| Just Unbound <- lookupKeyConfigBindings kc ev = []
| otherwise = allDefaultBindings kc ev
bindings = case kehEventTrigger eh of
Static binding -> [binding]
ByEvent ev -> allBindingsFor ev
in [ KH eh b | b <- bindings ]
mkHandler :: T.Text -> m () -> Handler m
mkHandler msg action =