wip

Author: functora

ghcjs/miso-functora/js/main.js

@@ -31,7 +31,9 @@ export async function insertStorage(key, value) {
 export async function selectClipboard() {
   const { value } = await Clipboard.read();
   try {
-    return newBlobUrl(value);
+    const { buffer: u8a, typeFull: mime } = dataUriToBuffer(value);
+    const blob = new Blob([u8a, { type: mime }]);
+    return URL.createObjectURL(blob);
   } catch (e) {
     return value;
   }
@@ -101,12 +103,6 @@ export function isNativePlatform() {
   return Capacitor.isNativePlatform();
 }
 
-export function newBlobUrl(value) {
-  const { buffer: u8a, typeFull: mime } = dataUriToBuffer(value);
-  const blob = new Blob([u8a, { type: mime }]);
-  return URL.createObjectURL(blob);
-}
-
 export async function fetchUrlAsRfc2397(url) {
   const resp = await fetch(url);
   const blob = await resp.blob();

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

@@ -13,7 +13,7 @@ module Functora.Miso.Jsm.Generic
     genericPromise,
     printCurrentPage,
     saveFile,
-    newBlobUrl,
+    fetchUrlAsRfc2397,
   )
 where
 
@@ -215,8 +215,8 @@ saveFile name mime bs = do
     Nothing -> pure ()
     Just str -> popupText str
 
-newBlobUrl :: Unicode -> JSM Unicode
-newBlobUrl blob = do
-  pkg <- getPkg
-  res <- pkg ^. JS.js1 ("newBlobUrl" :: Unicode) blob
-  JS.fromJSVal res >>= maybe (throwString @String "Failure, bad result!") pure
+fetchUrlAsRfc2397 :: Unicode -> (Maybe Unicode -> JSM ()) -> JSM ()
+fetchUrlAsRfc2397 url after =
+  genericPromise @[Unicode] @Unicode "fetchUrlAsRfc2397" [url]
+    $ after
+    . fmap strip