3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-22 06:36:11 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Add support components managemente via library

Browse source
This commit is contained in:
Alejandro Alonso 2022-11-30 06:25:21 +01:00
parent 4c1f2cfded
commit a19417417a
2 changed files with 71 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

41
frontend/src/app/libs/file_builder.cljs
View file

@ -58,6 +58,12 @@
(rx/filter #(d/not-empty? (second %)))
(rx/map e/parse-library-color))
components-stream
(->> files-stream
(rx/flat-map vals)
(rx/filter #(d/not-empty? (get-in % [:data :components])))
(rx/flat-map e/parse-library-components))
pages-stream
(->> render-stream
(rx/map e/collect-page))]
@ -72,6 +78,7 @@
(->> (rx/merge
manifest-stream
pages-stream
components-stream
colors-stream)
(rx/reduce conj [])
(rx/with-latest-from files-stream)
@ -153,16 +160,38 @@
(set! file (fb/delete-library-color file (parse-data data)))
(str (:last-id file)))
(startComponent [_ data]
(set! file (fb/start-component file (parse-data data)))
(str (:current-component-id file)))
(finishComponent [_]
(set! file (fb/finish-component file)))
(createComponentInstance [_ data]
(set! file (fb/create-component-instance file (parse-data data)))
(str (:last-id file)))
(lookupShape [_ shape-id]
(clj->js (fb/lookup-shape file (uuid/uuid shape-id))))
(updateObject [_ id new-obj]
(let [old-obj (fb/lookup-shape file (uuid/uuid id))
new-obj (d/deep-merge old-obj (parse-data new-obj))]
(set! file (fb/update-object file old-obj new-obj))))
(deleteObject [_ id]
(set! file (fb/delete-object file (uuid/uuid id))))
(asMap [_]
(clj->js file))
(export [_]
(->> (export-file file)
(rx/subs
(fn [value]
(when (not (contains? value :type))
(let [[file export-blob] value]
(dom/trigger-download (:name file) export-blob))))))))
(->> (export-file file)
(rx/subs
(fn [value]
(when (not (contains? value :type))
(let [[file export-blob] value]
(dom/trigger-download (:name file) export-blob))))))))
(defn create-file-export [^string name]
(File. (fb/create-file name)))