Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-06 14:50:20 -05:00
Code Issues Activity

Fix export

Browse source
This commit is contained in:
Florian Schroedl 2024-10-02 10:52:48 +02:00
parent fdca6e4edf
commit 845de5d885
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
frontend/src/app/main/ui/workspace/tokens/core.cljs
View file

@ -61,18 +61,18 @@
(defn export-tokens-file [tokens-json]
(let [file-name "tokens.json"
file-content (encode-tokens tokens-json)
blob (wapi/create-blob (clj->js file-content) "application/json")]
blob (wapi/create-blob file-content "application/json")]
(dom/trigger-download file-name blob)))
(defn transform-tokens-into-json-format [tokens]
(defn tokens->dtcg-map [tokens]
(let [global (reduce
(fn [acc [_ {:keys [name value type]}]]
(assoc acc name {:$value value
:$type (str/camel type)}))
(sorted-map) tokens)]
(assoc acc name {"$value" value
"$type" (str/camel type)}))
(d/ordered-map) tokens)]
{:global global}))
(defn download-tokens-as-json []
(let [all-tokens (deref refs/workspace-selected-token-set-tokens-OLD)
transformed-tokens-json (transform-tokens-into-json-format all-tokens)]
(export-tokens-file transformed-tokens-json)))
(let [tokens (deref refs/workspace-active-theme-sets-tokens)
dtcg-format-tokens-map (tokens->dtcg-map tokens)]
(export-tokens-file dtcg-format-tokens-map)))