mirror of
https://github.com/penpot/penpot.git
synced 2025-12-11 22:14:05 +01:00
Fix token updating
This commit is contained in:
@@ -75,17 +75,8 @@
|
|||||||
|
|
||||||
|
|
||||||
(defn get-active-theme-sets-tokens-names-map [state]
|
(defn get-active-theme-sets-tokens-names-map [state]
|
||||||
(let [active-set-ids (get-ordered-active-set-ids state)]
|
(when-let [lib (get-workspace-tokens-lib state)]
|
||||||
(reduce
|
(ctob/get-active-themes-set-tokens lib)))
|
||||||
(fn [names-map-acc set-id]
|
|
||||||
(let [token-ids (get-workspace-token-set-tokens set-id state)]
|
|
||||||
(reduce
|
|
||||||
(fn [acc token-id]
|
|
||||||
(if-let [token (wtt/get-workspace-token token-id state)]
|
|
||||||
(assoc acc (wtt/token-identifier token) token)
|
|
||||||
acc))
|
|
||||||
names-map-acc token-ids)))
|
|
||||||
(ordered-map) active-set-ids)))
|
|
||||||
|
|
||||||
;; === Set selection
|
;; === Set selection
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user