using blob uris to show in-memory images

Author: functora

cabal.project

@@ -11,6 +11,7 @@ package miso
 
 packages:
   pub/miso/*.cabal
+  pub/miso/examples/*.cabal
 
 source-repository-package
   type: git

ghcjs/miso-functora/dist/miso-functora/post-theme.min.css

@@ -1,6 +1,7 @@
 import { defineCustomElements } from "@ionic/pwa-elements/loader";
 import { Filesystem, Directory } from "@capacitor/filesystem";
 import { WebviewPrint } from "capacitor-webview-print";
+import { dataUriToBuffer } from "data-uri-to-buffer";
 import { Preferences } from "@capacitor/preferences";
 import { Clipboard } from "@capacitor/clipboard";
 import { Browser } from "@capacitor/browser";
@@ -28,8 +29,14 @@ export async function insertStorage(key, value) {
 }
 
 export async function selectClipboard() {
-  const { value } = await Clipboard.read();
-  return value;
+  const { type, value } = await Clipboard.read();
+  if (type.startsWith("text")) {
+    return value;
+  } else {
+    const { buffer: u8a, typeFull: mime } = dataUriToBuffer(value);
+    const blob = new Blob([u8a, { type: mime }]);
+    return URL.createObjectURL(blob);
+  }
 }
 
 export async function openBrowserPage(url) {

ghcjs/miso-functora/js/main.js

@@ -19,6 +19,7 @@
     "@capacitor/toast": "^6.0.2",
     "@ionic/pwa-elements": "^3.3.0",
     "capacitor-webview-print": "^6.0.1",
+    "data-uri-to-buffer": "^6.0.2",
     "file-saver": "^2.0.5",
     "html5-qrcode": "^2.3.8"
   },

ghcjs/miso-functora/js/main.min.js

@@ -1,4 +1,5 @@
 {-# LANGUAGE CPP #-}
+{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}
 
@@ -11,7 +12,7 @@ module Main where
 
 import Control.Monad.IO.Class
 import Miso
-import Miso.String (MisoString)
+import Miso.String (MisoString, ms)
 
 #ifdef IOS
 import Language.Javascript.JSaddle.WKWebView as JSaddle
@@ -76,6 +77,12 @@ viewModel inputs =
         )
         ( zip [0 ..] inputs
         )
+      <> fmap
+        ( img_
+            . (: mempty)
+            . src_
+        )
+        inputs
 
 updateAt :: Int -> (a -> a) -> [a] -> [a]
 updateAt idx f xs