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

Remove unneeded ->

Browse source
This commit is contained in:
Florian Schroedl 2024-10-02 14:09:51 +02:00
parent a235327c3e
commit 041e04dcb1
1 changed files with 49 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

72
common/src/app/common/files/changes.cljc
View file

@ -788,112 +788,88 @@
(defmethod process-change :add-token (defmethod process-change :add-token
[data {:keys [set-name token]}] [data {:keys [set-name token]}]
(-> data (update data :tokens-lib #(-> %
(update :tokens-lib
#(-> %
(ctob/ensure-tokens-lib) (ctob/ensure-tokens-lib)
(ctob/add-token-in-set set-name (ctob/make-token token)))))) (ctob/add-token-in-set set-name (ctob/make-token token)))))
(defmethod process-change :mod-token (defmethod process-change :mod-token
[data {:keys [set-name name token]}] [data {:keys [set-name name token]}]
(-> data (update data :tokens-lib #(-> %
(update :tokens-lib
#(-> %
(ctob/ensure-tokens-lib) (ctob/ensure-tokens-lib)
(ctob/update-token-in-set (ctob/update-token-in-set
set-name set-name
name name
(fn [old-token] (fn [old-token]
(ctob/make-token (merge old-token token)))))))) (ctob/make-token (merge old-token token)))))))
(defmethod process-change :del-token (defmethod process-change :del-token
[data {:keys [set-name name]}] [data {:keys [set-name name]}]
(-> data (update data :tokens-lib #(-> %
(update :tokens-lib
#(-> %
(ctob/ensure-tokens-lib) (ctob/ensure-tokens-lib)
(ctob/delete-token-from-set (ctob/delete-token-from-set
set-name set-name
name))))) name))))
(defmethod process-change :add-temporary-token-theme (defmethod process-change :add-temporary-token-theme
[data {:keys [token-theme]}] [data {:keys [token-theme]}]
(-> data (update data :tokens-lib #(-> %
(update :tokens-lib
#(-> %
(ctob/ensure-tokens-lib) (ctob/ensure-tokens-lib)
(ctob/add-theme (ctob/make-token-theme token-theme)))))) (ctob/add-theme (ctob/make-token-theme token-theme)))))
(defmethod process-change :update-active-token-themes (defmethod process-change :update-active-token-themes
[data {:keys [theme-ids]}] [data {:keys [theme-ids]}]
(-> data (update data :tokens-lib #(-> % (ctob/ensure-tokens-lib)
(update :tokens-lib #(-> % (ctob/set-active-themes theme-ids))))
(ctob/ensure-tokens-lib)
(ctob/set-active-themes theme-ids)))))
(defmethod process-change :delete-temporary-token-theme (defmethod process-change :delete-temporary-token-theme
[data {:keys [group name]}] [data {:keys [group name]}]
(-> data (update data :tokens-lib #(-> %
(update :tokens-lib
#(-> %
(ctob/ensure-tokens-lib) (ctob/ensure-tokens-lib)
(ctob/delete-theme group name))))) (ctob/delete-theme group name))))
(defmethod process-change :add-token-theme (defmethod process-change :add-token-theme
[data {:keys [token-theme]}] [data {:keys [token-theme]}]
(-> data (update data :tokens-lib #(-> %
(update :tokens-lib
#(-> %
(ctob/ensure-tokens-lib) (ctob/ensure-tokens-lib)
(ctob/add-theme (-> token-theme (ctob/add-theme (-> token-theme
(ctob/make-token-theme))))))) (ctob/make-token-theme))))))
(defmethod process-change :mod-token-theme (defmethod process-change :mod-token-theme
[data {:keys [name group token-theme]}] [data {:keys [name group token-theme]}]
(-> data (update data :tokens-lib #(-> %
(update :tokens-lib
#(-> %
(ctob/ensure-tokens-lib) (ctob/ensure-tokens-lib)
(ctob/update-theme group name (ctob/update-theme group name
(fn [prev-theme] (fn [prev-theme]
(merge prev-theme token-theme))))))) (merge prev-theme token-theme))))))
(defmethod process-change :del-token-theme (defmethod process-change :del-token-theme
[data {:keys [group name]}] [data {:keys [group name]}]
(-> data (update data :tokens-lib #(-> %
(update :tokens-lib
#(-> %
(ctob/ensure-tokens-lib) (ctob/ensure-tokens-lib)
(ctob/delete-theme group name))))) (ctob/delete-theme group name))))
(defmethod process-change :add-token-set (defmethod process-change :add-token-set
[data {:keys [token-set]}] [data {:keys [token-set]}]
(-> data (update data :tokens-lib #(-> %
(update :tokens-lib
#(-> %
(ctob/ensure-tokens-lib) (ctob/ensure-tokens-lib)
(ctob/add-set (ctob/make-token-set token-set)))))) (ctob/add-set (ctob/make-token-set token-set)))))
(defmethod process-change :mod-token-set (defmethod process-change :mod-token-set
[data {:keys [name token-set]}] [data {:keys [name token-set]}]
(-> data (update data :tokens-lib (fn [element]
(update :tokens-lib
(fn [element]
(let [path-changed? (not= name (:name token-set)) (let [path-changed? (not= name (:name token-set))
lib (-> element lib (-> element
(ctob/ensure-tokens-lib) (ctob/ensure-tokens-lib)
(ctob/update-set name (fn [prev-set] (ctob/update-set name (fn [prev-set]
(merge prev-set (dissoc token-set :tokens)))))] (merge prev-set (dissoc token-set :tokens)))))]
(cond-> lib (cond-> lib
path-changed? (ctob/update-set-name name (:name token-set)))))))) path-changed? (ctob/update-set-name name (:name token-set)))))))
(defmethod process-change :del-token-set (defmethod process-change :del-token-set
[data {:keys [name]}] [data {:keys [name]}]
(-> data (update data :tokens-lib #(-> %
(update :tokens-lib
#(-> %
(ctob/ensure-tokens-lib) (ctob/ensure-tokens-lib)
(ctob/delete-set name))))) (ctob/delete-set name))))
;; === Operations ;; === Operations
(defmethod process-operation :set (defmethod process-operation :set