Yvee1/hascard
1
1
Fork 0
mirror of https://github.com/Yvee1/hascard.git synced 2024-11-22 12:51:58 +03:00
Code Issues Projects Releases Wiki Activity

Improve navigation of parameter selection menu

Browse Source
This commit is contained in:
Yvee1 2023-05-18 11:34:07 +02:00
parent f07ce0f769
commit b9e44fd2e7
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/UI/Parameter.hs
View File

@ -46,6 +46,12 @@ handleEvent ev@(VtyEvent e) = do
ChunkField2 -> return () ChunkField2 -> return ()
SubsetField -> psForm .= form { formFocus = focusPrev (focusPrev focus) } SubsetField -> psForm .= form { formFocus = focusPrev (focusPrev focus) }
_ -> psForm .= form { formFocus = focusPrev focus } _ -> psForm .= form { formFocus = focusPrev focus }
right = zoom ps $ case n of
ChunkField1 -> psForm .= form { formFocus = focusNext focus }
_ -> return ()
left = zoom ps $ case n of
ChunkField2 -> psForm .= form { formFocus = focusPrev focus }
_ -> return ()
case e of case e of
V.EvKey V.KEsc [] -> popState V.EvKey V.KEsc [] -> popState
@ -56,10 +62,14 @@ handleEvent ev@(VtyEvent e) = do
V.EvKey (V.KChar 'k') [] -> up V.EvKey (V.KChar 'k') [] -> up
V.EvKey (V.KChar '\t') [] -> return () V.EvKey (V.KChar '\t') [] -> return ()
V.EvKey V.KBackTab [] -> return () V.EvKey V.KBackTab [] -> return ()
V.EvKey (V.KChar 'h') [] -> left
V.EvKey (V.KChar 'l') [] -> right
_ -> case (e, n) of _ -> case (e, n) of
(V.EvKey V.KRight [], ChunkField2) -> return () (V.EvKey V.KRight [], ChunkField2) -> return ()
(V.EvKey V.KLeft [], ChunkField1) -> return () (V.EvKey V.KLeft [], ChunkField1) -> return ()
(V.EvKey V.KRight [], SubsetField) -> return ()
(V.EvKey V.KLeft [], SubsetField) -> return ()
_ -> do zoom (ps.psForm) $ handleFormEvent ev _ -> do zoom (ps.psForm) $ handleFormEvent ev
f <- use $ ps.psForm f <- use $ ps.psForm
when (formState f ^. pOk) $ do when (formState f ^. pOk) $ do