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

Refactor and adapt create-images event to backend changes.

Browse source
This commit is contained in:
Andrey Antukh 2016-10-12 18:44:12 +02:00
parent ba8b20f8c0
commit 2b00395253
1 changed files with 15 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -8,9 +8,12 @@
(ns uxbox.main.data.images (ns uxbox.main.data.images
(:require [cuerdas.core :as str] (:require [cuerdas.core :as str]
[beicon.core :as rx] [beicon.core :as rx]
[promesa.core :as p]
[uxbox.util.data :refer (jscoll->vec)]
[uxbox.util.uuid :as uuid] [uxbox.util.uuid :as uuid]
[uxbox.util.rstore :as rs] [uxbox.util.rstore :as rs]
[uxbox.util.router :as r] [uxbox.util.router :as r]
[uxbox.util.dom.files :as files]
[uxbox.main.state :as st] [uxbox.main.state :as st]
[uxbox.main.repo :as rp])) [uxbox.main.repo :as rp]))
@ -191,15 +194,18 @@
(defrecord CreateImages [coll-id files] (defrecord CreateImages [coll-id files]
rs/WatchEvent rs/WatchEvent
(-apply-watch [_ state s] (-apply-watch [_ state s]
(let [files-to-array (fn [js-col] (letfn [(image-size [file]
(-> (clj->js []) (->> (files/get-image-size file)
(.-slice) (rx/map (partial vector file))))
(.call js-col) (prepare [[file [width height]]]
(js->clj))) {:coll coll-id
images-data (map (fn [file] {:coll coll-id
:id (uuid/random) :id (uuid/random)
:file file}) (files-to-array files))] :file file
(->> (rx/from-coll images-data) :width width
:height height})]
(->> (rx/from-coll (jscoll->vec files))
(rx/flat-map image-size)
(rx/map prepare)
(rx/flat-map #(rp/req :create/image %)) (rx/flat-map #(rp/req :create/image %))
(rx/map :payload) (rx/map :payload)
(rx/map image-created))))) (rx/map image-created)))))