Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-24 15:56:11 -05:00
Code Issues Activity

Only allow upload a limited set of image types.

Browse source
This commit is contained in:
Andrey Antukh 2016-10-12 19:21:38 +02:00
parent a0127130a6
commit 492e57d845
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -191,12 +191,16 @@
;; --- Create Image
(def allowed-file-types #{"image/jpeg" "image/png"})
(defrecord CreateImages [coll-id files]
rs/WatchEvent
(-apply-watch [_ state s]
(letfn [(image-size [file]
(->> (files/get-image-size file)
(rx/map (partial vector file))))
(allowed-file? [file]
(contains? allowed-file-types (.-type file)))
(prepare [[file [width height]]]
{:coll coll-id
:id (uuid/random)
@ -204,6 +208,7 @@
:width width
:height height})]
(->> (rx/from-coll (jscoll->vec files))
(rx/filter allowed-file?)
(rx/flat-map image-size)
(rx/map prepare)
(rx/flat-map #(rp/req :create/image %))