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

✨ Improved process-changes performance

Browse source
This commit is contained in:
alonso.torres 2021-01-26 16:59:40 +01:00
parent cf77ebde6a
commit 815d1a906f
2 changed files with 17 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

20
common/app/common/pages/changes.cljc
View file

@ -29,12 +29,18 @@
(defmulti process-operation (fn [_ op] (:type op)))
(defn process-changes
[data items]
(->> (us/verify ::spec/changes items)
(reduce #(do
;; (prn "process-change" (:type %2) (:id %2))
(or (process-change %1 %2) %1))
data)))
([data items] (process-changes data items true))
([data items verify?]
;; When verify? false we spec the schema validation. Currently used to make just
;; 1 validation even if the changes are applied twice
(when verify?
(us/verify ::spec/changes items))
(reduce #(do
#_(prn "process-change" (:type %2) (:id %2))
(or (process-change %1 %2) %1))
data
items)))
(defmethod process-change :set-option
[data {:keys [page-id option value]}]
@ -91,7 +97,7 @@
(let [update-fn (fn [objects]
(if-let [obj (get objects id)]
(let [result (reduce process-operation obj operations)]
(us/verify ::spec/shape result)
#?(:clj (us/verify ::spec/shape result))
(assoc objects id result))
objects))]
(if page-id