Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-06 12:51:56 -05:00
Code Issues Activity

Addapt images create event to support on-complete callback.

Browse source
This commit is contained in:
Andrey Antukh 2016-10-24 22:16:26 +02:00
parent f17642f057
commit 997876db32
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 19 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/uxbox/main/data/images.cljs
View file

@ -191,7 +191,11 @@
(def allowed-file-types #{"image/jpeg" "image/png"})
(defrecord CreateImages [id files]
(defrecord CreateImages [id files on-uploaded]
rs/UpdateEvent
(-apply-update [_ state]
(assoc-in state [:dashboard :images :uploading] true))
rs/WatchEvent
(-apply-watch [_ state s]
(letfn [(image-size [file]
@ -199,6 +203,8 @@
(rx/map (partial vector file))))
(allowed-file? [file]
(contains? allowed-file-types (.-type file)))
(finalize-upload []
(assoc-in state [:dashboard :images :uploading] false))
(prepare [[file [width height]]]
{:collection id
:mimetype (.-type file)
@ -208,16 +214,23 @@
:height height})]
(->> (rx/from-coll (jscoll->vec files))
(rx/filter allowed-file?)
(rx/flat-map image-size)
(rx/mapcat image-size)
(rx/map prepare)
(rx/flat-map #(rp/req :create/image %))
(rx/mapcat #(rp/req :create/image %))
(rx/map :payload)
(rx/reduce conj [])
(rx/do #(rs/emit! finalize-upload))
(rx/do on-uploaded)
(rx/mapcat identity)
(rx/map image-created)))))
(defn create-images
[id files]
{:pre [(or (uuid? id) (nil? id))]}
(CreateImages. id files))
([id files]
{:pre [(or (uuid? id) (nil? id))]}
(CreateImages. id files (constantly nil)))
([id files on-uploaded]
{:pre [(or (uuid? id) (nil? id)) (fn? on-uploaded)]}
(CreateImages. id files on-uploaded)))
;; --- Image Updated