CalvinBackup/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-03-10 12:16:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge remote-tracking branch 'origin/staging' into develop

Browse Source
This commit is contained in:
Andrey Antukh
2025-06-17 16:23:35 +02:00
parent 46fe3a6239 c5b0206bf0
commit 90116c207f
1 changed files with 21 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
frontend/src/app/util/webapi.cljs
View File

@@ -18,17 +18,32 @@
(log/set-level! :warn)
;; NOTE: this operation is necessary because some versions of safari/webkit,
;; returns something like "data:image/png, image/png;base64,iVBOR" (repeated
;; mimetype). The regex replacement strips the repeated mimetype.
(def webkit-datauri-fix-re
#"^(data:image/\w+)(,\s*image/\w+)?(;base64.*)$")
(defn- fix-webkit-data-uri
[duri]
(str/replace duri webkit-datauri-fix-re "$1$3"))
(defn- file-reader
[f]
(rx/create
(fn [subs]
(let [reader (js/FileReader.)]
(obj/set! reader "onload" #(do (rx/push! subs (.-result ^js reader))
(rx/end! subs)))
(obj/set! reader "onerror" #(rx/error! subs %))
(obj/set! reader "onabort" #(rx/error! subs (ex/error :type :internal
:code :abort
:hint "operation aborted")))
(obj/set! reader "onload"
#(let [result (.-result ^js reader)
result (fix-webkit-data-uri result)]
(rx/push! subs result)
(rx/end! subs)))
(obj/set! reader "onerror"
#(rx/error! subs %))
(obj/set! reader "onabort"
#(rx/error! subs (ex/error :type :internal
:code :abort
:hint "operation aborted")))
(f reader)
(fn []
(.abort ^js reader))))))