bolt11 wip

Author: functora

ghcjs/lightning-verifier/src/App/Widgets/Bolt11.hs

@@ -31,7 +31,11 @@ bolt11 st =
   where
     -- r = st ^. #modelState . #stDoc . #stDocLnPreimage . #fieldOutput
     ln = st ^. #modelState . #stDoc . #stDocLnInvoice . #fieldOutput
-    simple x = newFieldPairId x . DynamicFieldText . inspect
+    simple x =
+      newFieldPairId x
+        . DynamicFieldText
+        . from @Prelude.String @MisoString
+        . Prelude.show
     widget xs =
       FieldPairs.fieldPairsViewer
         FieldPairs.Args

ghcjs/lightning-verifier/src/App/Widgets/Main.hs

@@ -128,6 +128,8 @@ screenWidget st@Model {modelState = St {stScreen = Converter}} =
               Field.argsAction = PushUpdate . Delayed 300
             }
           ( Field.defOpts @Model @Action
+              & #optsFilledOrOutlined
+              .~ Outlined
               & #optsPlaceholder
               .~ "Invoice"
           ),
@@ -138,6 +140,8 @@ screenWidget st@Model {modelState = St {stScreen = Converter}} =
               Field.argsAction = PushUpdate . Delayed 300
             }
           ( Field.defOpts @Model @Action
+              & #optsFilledOrOutlined
+              .~ Outlined
               & #optsPlaceholder
               .~ "Preimage"
           )

ghcjs/miso-widgets/src/Functora/Miso/Widgets/FieldPairs.hs

@@ -37,7 +37,6 @@ fieldPairViewer args pair =
               [ Typography.typography,
                 Css.fullWidth,
                 class_ "mdc-text-field",
-                class_ "mdc-text-field--filled",
                 style_
                   [ ("align-items", "center"),
                     ("align-content", "center"),