src/Zenith/CLI.hs

@@ -20,6 +20,7 @@ import Brick.Forms
   , handleFormEvent
   , newForm
   , renderForm
+  , updateFormState
   )
 import qualified Brick.Main as M
 import qualified Brick.Types as BT
@@ -215,8 +216,18 @@ appEvent (BT.VtyEvent e) = do
                    V.EvKey (V.KChar '\t') [] -> focusRing %= F.focusNext
                    V.EvKey (V.KChar 'q') [] -> M.halt
                    V.EvKey (V.KChar '?') [] -> BT.modify $ set helpBox True
-                   V.EvKey (V.KChar 'w') [] -> BT.modify $ set dialogBox WName
-                   V.EvKey (V.KChar 'a') [] -> BT.modify $ set dialogBox AName
+                   V.EvKey (V.KChar 'w') [] -> do
+                     BT.modify $
+                       set inputForm $
+                       updateFormState (DialogInput "New Wallet") $
+                       s ^. inputForm
+                     BT.modify $ set dialogBox WName
+                   V.EvKey (V.KChar 'a') [] -> do
+                     BT.modify $
+                       set inputForm $
+                       updateFormState (DialogInput "New Account") $
+                       s ^. inputForm
+                     BT.modify $ set dialogBox AName
                    ev ->
                      case r of
                        Just AList -> BT.zoom addresses $ L.handleListEvent ev