paste clipboard widget

Author: functora

ghcjs/lightning-verifier/package-lock.json

@@ -9,6 +9,7 @@
   "dependencies": {
     "@capacitor/android": "^6.0.0",
     "@capacitor/browser": "^6.0.1",
+    "@capacitor/clipboard": "^6.0.1",
     "@capacitor/core": "^6.0.0",
     "@capacitor/ios": "^6.0.0",
     "@capacitor/preferences": "^6.0.1",

ghcjs/lightning-verifier/package.json

@@ -127,7 +127,7 @@ pair x =
     . DynamicFieldText
 
 pairs :: [FieldPair DynamicField f] -> [View Action]
-pairs xs =
+pairs raw =
   FieldPairs.fieldPairsViewer
     FieldPairs.Args
       { FieldPairs.argsModel = xs,
@@ -137,6 +137,14 @@ pairs xs =
             void $ fun xs
             pure next
       }
+  where
+    xs =
+      filter
+        ( \x ->
+            inspectDynamicField (x ^. #fieldPairValue . #fieldOutput)
+              /= mempty
+        )
+        raw
 
 defShow :: (Show a) => a -> MisoString
 defShow =

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

@@ -1,10 +1,12 @@
 module App.Widgets.Main (mainWidget) where
 
+import qualified App.Misc as Misc
 import App.Types
 import qualified App.Widgets.Bolt11 as Bolt11
 import qualified App.Widgets.Decrypt as Decrypt
 import qualified App.Widgets.Menu as Menu
 import qualified Functora.Miso.Css as Css
+import qualified Functora.Miso.Jsm as Jsm
 import Functora.Miso.Prelude
 import qualified Functora.Miso.Widgets.BrowserLink as BrowserLink
 import qualified Functora.Miso.Widgets.Field as Field
@@ -121,33 +123,54 @@ screenWidget st@Model {modelState = St {stScreen = Converter}} =
         FieldPairs.argsOptic = #modelState . #stDoc . #stDocFieldPairs,
         FieldPairs.argsAction = PushUpdate . Instant
       }
-    <> [ Field.textField
+    <> [ Field.textField @Model @Action
           Field.Args
             { Field.argsModel = st,
               Field.argsOptic = #modelState . #stDoc . #stDocLnInvoice,
               Field.argsAction = PushUpdate . Delayed 300
             }
-          ( Field.defOpts @Model @Action
-              & #optsFilledOrOutlined
-              .~ Outlined
-              & #optsPlaceholder
-              .~ "Invoice"
+          ( Field.defOpts
+              { Field.optsFilledOrOutlined = Outlined,
+                Field.optsPlaceholder = "Invoice",
+                Field.optsLeadingWidget =
+                  pasteWidget $ #modelState . #stDoc . #stDocLnInvoice
+              }
           ),
          Field.textField
           Field.Args
             { Field.argsModel = st,
               Field.argsOptic = #modelState . #stDoc . #stDocLnPreimage,
               Field.argsAction = PushUpdate . Delayed 300
             }
-          ( Field.defOpts @Model @Action
-              & #optsFilledOrOutlined
-              .~ Outlined
-              & #optsPlaceholder
-              .~ "Preimage"
-          )
+          Field.defOpts
+            { Field.optsFilledOrOutlined = Outlined,
+              Field.optsPlaceholder = "Preimage",
+              Field.optsLeadingWidget =
+                pasteWidget $ #modelState . #stDoc . #stDocLnPreimage
+            }
        ]
     <> Bolt11.bolt11 st
 
+pasteWidget ::
+  ATraversal' Model (Field MisoString Unique) ->
+  Maybe (Field.OptsWidget Model Action)
+pasteWidget optic =
+  Just
+    . Field.ActionWidget "content_paste" mempty
+    . PushUpdate
+    . Instant
+    $ \prev -> do
+      Jsm.selectClipboard $ \case
+        Nothing ->
+          Jsm.popupText @MisoString "Failed to paste!"
+        Just clip ->
+          Misc.pushActionQueue prev
+            . Instant
+            $ pure
+            . (& cloneTraversal optic . #fieldOutput .~ clip)
+            . (& cloneTraversal optic . #fieldInput . #uniqueValue .~ clip)
+      pure prev
+
 tosWidget :: View Action
 tosWidget =
   LayoutGrid.cell

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

@@ -1,6 +1,7 @@
 import { defineCustomElements } from "@ionic/pwa-elements/loader";
 import { WebviewPrint } from "capacitor-webview-print";
 import { Preferences } from "@capacitor/preferences";
+import { Clipboard } from "@capacitor/clipboard";
 import { Browser } from "@capacitor/browser";
 import { Share } from "@capacitor/share";
 import { Toast } from "@capacitor/toast";
@@ -18,6 +19,11 @@ async function insertStorage(key, value) {
   return await Preferences.set({ key: key, value: value });
 }
 
+async function selectClipboard() {
+  const { value } = await Clipboard.read();
+  return value;
+}
+
 async function openBrowserPage(url) {
   try {
     return await Browser.open({ url: url, windowName: "_blank" });
@@ -43,6 +49,7 @@ defineCustomElements(window);
 globalThis.printCurrentPage = printCurrentPage;
 globalThis.selectStorage = selectStorage;
 globalThis.insertStorage = insertStorage;
+globalThis.selectClipboard = selectClipboard;
 globalThis.openBrowserPage = openBrowserPage;
 globalThis.shareText = shareText;
 globalThis.popupText = popupText;

ghcjs/lightning-verifier/static/cap.js

@@ -1814,6 +1814,83 @@ const WebviewPrint = registerPlugin("WebviewPrint", {
 const Preferences = registerPlugin("Preferences", {
   web: () => __vitePreload(() => import("./web2.js"), true ? [] : void 0).then((m) => new m.PreferencesWeb())
 });
+class ClipboardWeb extends WebPlugin {
+  async write(options) {
+    if (typeof navigator === "undefined" || !navigator.clipboard) {
+      throw this.unavailable("Clipboard API not available in this browser");
+    }
+    if (options.string !== void 0) {
+      await this.writeText(options.string);
+    } else if (options.url) {
+      await this.writeText(options.url);
+    } else if (options.image) {
+      if (typeof ClipboardItem !== "undefined") {
+        try {
+          const blob = await (await fetch(options.image)).blob();
+          const clipboardItemInput = new ClipboardItem({ [blob.type]: blob });
+          await navigator.clipboard.write([clipboardItemInput]);
+        } catch (err) {
+          throw new Error("Failed to write image");
+        }
+      } else {
+        throw this.unavailable("Writing images to the clipboard is not supported in this browser");
+      }
+    } else {
+      throw new Error("Nothing to write");
+    }
+  }
+  async read() {
+    if (typeof navigator === "undefined" || !navigator.clipboard) {
+      throw this.unavailable("Clipboard API not available in this browser");
+    }
+    if (typeof ClipboardItem !== "undefined") {
+      try {
+        const clipboardItems = await navigator.clipboard.read();
+        const type = clipboardItems[0].types[0];
+        const clipboardBlob = await clipboardItems[0].getType(type);
+        const data = await this._getBlobData(clipboardBlob, type);
+        return { value: data, type };
+      } catch (err) {
+        return this.readText();
+      }
+    } else {
+      return this.readText();
+    }
+  }
+  async readText() {
+    if (typeof navigator === "undefined" || !navigator.clipboard || !navigator.clipboard.readText) {
+      throw this.unavailable("Reading from clipboard not supported in this browser");
+    }
+    const text = await navigator.clipboard.readText();
+    return { value: text, type: "text/plain" };
+  }
+  async writeText(text) {
+    if (typeof navigator === "undefined" || !navigator.clipboard || !navigator.clipboard.writeText) {
+      throw this.unavailable("Writting to clipboard not supported in this browser");
+    }
+    await navigator.clipboard.writeText(text);
+  }
+  _getBlobData(clipboardBlob, type) {
+    return new Promise((resolve, reject) => {
+      const reader = new FileReader();
+      if (type.includes("image")) {
+        reader.readAsDataURL(clipboardBlob);
+      } else {
+        reader.readAsText(clipboardBlob);
+      }
+      reader.onloadend = () => {
+        const r = reader.result;
+        resolve(r);
+      };
+      reader.onerror = (e) => {
+        reject(e);
+      };
+    });
+  }
+}
+const Clipboard = registerPlugin("Clipboard", {
+  web: () => new ClipboardWeb()
+});
 const Browser = registerPlugin("Browser", {
   web: () => __vitePreload(() => import("./web3.js"), true ? [] : void 0).then((m) => new m.BrowserWeb())
 });
@@ -1833,6 +1910,10 @@ async function selectStorage(key) {
 async function insertStorage(key, value) {
   return await Preferences.set({ key, value });
 }
+async function selectClipboard() {
+  const { value } = await Clipboard.read();
+  return value;
+}
 async function openBrowserPage(url) {
   try {
     return await Browser.open({ url, windowName: "_blank" });
@@ -1855,6 +1936,7 @@ defineCustomElements();
 globalThis.printCurrentPage = printCurrentPage;
 globalThis.selectStorage = selectStorage;
 globalThis.insertStorage = insertStorage;
+globalThis.selectClipboard = selectClipboard;
 globalThis.openBrowserPage = openBrowserPage;
 globalThis.shareText = shareText;
 globalThis.popupText = popupText;

ghcjs/lightning-verifier/static/main.js

@@ -12,10 +12,12 @@ module Functora.Miso.Jsm
     enterOrEscapeBlur,
     insertStorage,
     selectStorage,
+    selectClipboard,
   )
 where
 
 import qualified Data.Generics as Syb
+import qualified Data.Text as T
 import qualified Data.Text.Lazy.Encoding as TL
 import Functora.Miso.Prelude
 import Functora.Miso.Types
@@ -169,3 +171,27 @@ selectStorage key after = do
   void
     $ prom
     ^. JS.js2 @MisoString "then" success failure
+
+selectClipboard :: (Maybe MisoString -> JSM ()) -> JSM ()
+selectClipboard after = do
+  success <- JS.function $ \_ _ ->
+    handleAny (\e -> consoleLog e >> after Nothing) . \case
+      [val] -> do
+        valExist <- ghcjsPure $ JS.isTruthy val
+        if not valExist
+          then after Nothing
+          else do
+            raw <- JS.fromJSVal @Prelude.Text val
+            str <- maybe (throwString @MisoString "Clipboard bad type!") pure raw
+            popupText @MisoString "Inserted!"
+            after . Just . from @Prelude.Text @MisoString $ T.strip str
+      _ ->
+        throwString @MisoString "Clipboard bad argv!"
+  failure <-
+    JS.function $ \_ _ _ ->
+      popupText @MisoString "Failed to paste!"
+  prom <-
+    JS.global ^. JS.js0 @MisoString "selectClipboard"
+  void
+    $ prom
+    ^. JS.js2 @MisoString "then" success failure

ghcjs/miso-widgets/src/Functora/Miso/Jsm.hs

@@ -24,6 +24,7 @@ import qualified Functora.Miso.Widgets.Grid as Grid
 import qualified Functora.Miso.Widgets.Qr as Qr
 import qualified Language.Javascript.JSaddle as JS
 import qualified Material.Button as Button
+import qualified Material.IconButton as IconButton
 import qualified Material.LayoutGrid as LayoutGrid
 import qualified Material.Select as Select
 import qualified Material.Select.Item as SelectItem
@@ -708,12 +709,12 @@ dynamicFieldViewer ::
   [View action]
 dynamicFieldViewer action value =
   case value ^. #fieldType of
-    FieldTypeNumber -> plain out text
-    FieldTypePercent -> plain out $ text . (<> "%")
-    FieldTypeText -> plain out text
+    FieldTypeNumber -> plain action value text
+    FieldTypePercent -> plain action value $ text . (<> "%")
+    FieldTypeText -> plain action value text
     FieldTypeTitle -> header out
-    FieldTypeHtml -> plain out rawHtml
-    FieldTypePassword -> plain out $ const "*****"
+    FieldTypeHtml -> plain action value rawHtml
+    FieldTypePassword -> plain action value $ const "*****"
     FieldTypeQrCode ->
       Qr.qr
         Qr.Args
@@ -728,14 +729,11 @@ dynamicFieldViewer action value =
     allowCopy = value ^. #fieldAllowCopy
 
 plain ::
-  ( Eq a,
-    Monoid a,
-    ToMisoString a
-  ) =>
-  a ->
+  ((model -> JSM model) -> action) ->
+  Field DynamicField f ->
   (MisoString -> View action) ->
   [View action]
-plain out widget =
+plain action value widget =
   if out == mempty
     then mempty
     else
@@ -757,8 +755,22 @@ plain out widget =
                 ("line-height", "150%")
               ]
           ]
-          [widget $ toMisoString out]
+          $ [ widget $ toMisoString out
+            ]
+          <> ( if not allowCopy
+                then mempty
+                else
+                  [ IconButton.iconButton
+                      ( IconButton.config
+                          & IconButton.setOnClick (action $ Jsm.shareText out)
+                      )
+                      "content_copy"
+                  ]
+             )
       ]
+  where
+    out = inspectDynamicField $ value ^. #fieldOutput
+    allowCopy = value ^. #fieldAllowCopy
 
 header :: MisoString -> [View action]
 header txt =