github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-13 23:48:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

♻️ Refactor thumbnails queue to priority queue

Browse Source
This commit is contained in:
Aitor 2023-11-23 16:01:23 +01:00 committed by Andrey Antukh
parent 49203f53aa
commit 1de2af744f
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
frontend/src/app/util/queue.cljs
View File

@ -85,7 +85,15 @@
(let [items (unchecked-get queue "items")] (let [items (unchecked-get queue "items")]
(.shift items))) (.shift items)))
(defn enqueue (defn enqueue-first
[queue item]
(assert (instance? Queue queue))
(let [items (unchecked-get queue "items")]
(.unshift items item)
(when-not (has-requested-process? queue)
(request-process queue (next-process-time queue)))))
(defn enqueue-last
[queue item] [queue item]
(assert (instance? Queue queue)) (assert (instance? Queue queue))
(let [items (unchecked-get queue "items")] (let [items (unchecked-get queue "items")]
@ -97,5 +105,13 @@
[queue item f] [queue item f]
(assert (instance? Queue queue)) (assert (instance? Queue queue))
(let [items (unchecked-get queue "items")] (let [items (unchecked-get queue "items")]
(when-not (.findLast ^js items f) ;; If tag is "frame", then they are added to the front of the queue
(enqueue queue item)))) ;; so that they are processed first, anything else is added to the
;; end of the queue.
(if (= (unchecked-get item "tag") "frame")
(when-not (.find ^js items f)
(enqueue-first queue item))
(when-not (.findLast ^js items f)
(enqueue-last queue item)))
(when-not (has-requested-process? queue)
(request-process queue (next-process-time queue)))))