Make passing of names-map explicit

This commit is contained in:
Florian Schroedl 2024-08-21 14:42:39 +02:00
parent 7c3716a709
commit 011fc734f6
3 changed files with 26 additions and 6 deletions

View file

@ -74,14 +74,14 @@
(get errors :style-dictionary/missing-reference)))
(defn resolve-tokens+
[tokens & {:keys [debug?] :as config}]
[tokens & {:keys [names-map? debug?] :as config}]
(p/let [sd-tokens (-> (wtt/token-names-tree tokens)
(resolve-sd-tokens+ config))]
(let [resolved-tokens (reduce
(fn [acc ^js cur]
(let [identifier (if (uuid? (ffirst tokens))
(uuid (.-uuid (.-id cur)))
(.. cur -original -name))
(let [identifier (if names-map?
(.. cur -original -name)
(uuid (.-uuid (.-id cur))))
origin-token (get tokens identifier)
parsed-value (wtt/parse-token-value (.-value cur))
resolved-token (if (not parsed-value)

View file

@ -124,7 +124,7 @@
(rx/from
(->
(wtts/get-active-theme-sets-tokens-names-map state)
(wtsd/resolve-tokens+)))
(wtsd/resolve-tokens+ {:names-map? true})))
(rx/mapcat
(fn [sd-tokens]
(let [undo-id (js/Symbol)]