CalvinBackup/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-03-12 13:27:02 +00:00
Code Issues Packages Projects Releases Wiki 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
Download Patch File Download Diff File Expand all files Collapse all files

24
src/uxbox/main/data/images.cljs
View File

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