3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-03 10:41:42 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Import library media,color,typographies

Browse source
This commit is contained in:
alonso.torres 2021-06-23 15:51:06 +02:00 • committed by Andrés Moya
parent aa14d9626f
commit 7d14122746
5 changed files with 143 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

20
frontend/src/app/util/zip.cljs
View file

@ -31,24 +31,28 @@
(rx/map :body)
(rx/flat-map zip/loadAsync)))
(defn- process-file [entry path]
(defn- process-file
[entry path type]
(cond
(nil? entry)
(p/rejected "No file found")
(p/rejected (str "File not found: " path))
(.-dir entry)
(p/resolved {:dir path})
:else
(-> (.async entry "text")
(-> (.async entry type)
(p/then #(hash-map :path path :content %)))))
(defn get-file
"Gets a single file from the zip archive"
[zip path]
(-> (.file zip path)
(process-file path)
(rx/from)))
([zip path]
(get-file zip path "text"))
([zip path type]
(-> (.file zip path)
(process-file path type)
(rx/from))))
(defn extract-files
"Creates a stream that will emit values for every file in the zip"
@ -56,7 +60,7 @@
(let [promises (atom [])
get-file
(fn [path entry]
(let [current (process-file entry path)]
(let [current (process-file entry path "text")]
(swap! promises conj current)))]
(.forEach zip get-file)