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

🐛 Process thumbnail creation in serie (less resource usage).

Browse source
This commit is contained in:
Andrey Antukh 2020-01-27 16:38:43 +01:00
parent 121d300cf7
commit aaa8bfe67d
3 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
backend/src/uxbox/images.clj
View file

@ -79,7 +79,7 @@
(defn populate-thumbnail
[entry {:keys [src dst] :as opts}]
{:pre [(map? entry)]}
(assert (map? entry))
(let [src (if (vector? src) src [src])
dst (if (vector? dst) dst [dst])
src (get-in entry src)]
@ -93,8 +93,8 @@
(defn populate-urls
[entry storage src dst]
{:pre [(map? entry)
(st/storage? storage)]}
(assert (map? entry))
(assert (st/storage? storage))
(let [src (if (vector? src) src [src])
dst (if (vector? dst) dst [dst])
value (get-in entry src)]

4
backend/src/uxbox/services/queries/images.clj
View file

@ -32,8 +32,8 @@
(defn populate-thumbnail
[row]
(let [opts +thumbnail-options+]
(-> (px/submit! #(images/populate-thumbnails row opts))
(su/handle-on-context))))
(-> (p/promise row)
(p/then (vc/wrap-blocking #(images/populate-thumbnail % opts))))))
(defn populate-thumbnails
[rows]