wip

Author: functora

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

@@ -179,7 +179,7 @@ screenWidget st@Model {modelState = St {stScreen = Converter}} =
                 Field.optsPlaceholder = "Invoice",
                 Field.optsLeadingWidget =
                   pasteWidget
-                    "content_paste"
+                    "content_paste_go"
                     Jsm.selectClipboard
                     $ #modelState
                     . #stDoc
@@ -204,7 +204,7 @@ screenWidget st@Model {modelState = St {stScreen = Converter}} =
               Field.optsPlaceholder = "Preimage",
               Field.optsLeadingWidget =
                 pasteWidget
-                  "content_paste"
+                  "content_paste_go"
                   Jsm.selectClipboard
                   $ #modelState
                   . #stDoc

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

@@ -893,9 +893,12 @@ genericFieldViewer args opts widget =
                 )
       )
         <> ( do
+              let icon = case stateQr of
+                    Closed -> "qr_code_2"
+                    Opened -> "grid_off"
               trav <- maybeToList $ opts ^. #viewerOptsQrOptic
               pure
-                . fieldViewerIcon "qr_code_2"
+                . fieldViewerIcon icon
                 . action
                 $ pure
                 . ( &