johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-11 22:14:05 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki Activity

Sets sidebar

Browse Source
This commit is contained in:
Florian Schroedl
2024-09-20 14:27:19 +02:00
parent 501256f16b
commit f5249196f9
8 changed files with 96 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
frontend/src/app/main/ui/workspace/tokens/token.cljs
View File

@@ -1,9 +1,10 @@
(ns app.main.ui.workspace.tokens.token
(:require
[app.common.data :as d]
[app.common.data.macros :as dm]
[app.main.ui.workspace.tokens.tinycolor :as tinycolor]
[clojure.set :as set]
[cuerdas.core :as str]
[app.main.ui.workspace.tokens.tinycolor :as tinycolor]))
[cuerdas.core :as str]))
(defn get-workspace-tokens
[state]
@@ -117,15 +118,32 @@
(->> (map (fn [{:keys [name] :as token}] [name token]) tokens)
(into {})))
(defn token-names-tree
"Convert tokens into a nested tree with their `:name` as the path."
[tokens]
(defonce a (atom nil))
(defn token-names-tree-id-map [tokens]
(reset! a tokens)
(reduce
(fn [acc [_ {:keys [name] :as token}]]
(fn [acc {:keys [name] :as token}]
(when (string? name)
(let [path (token-name->path name)]
(assoc-in acc path token))))
{} tokens))
(let [temp-id (random-uuid)
token (assoc token :temp/id temp-id)]
(-> acc
(assoc-in (concat [:tree] (token-name->path name)) token)
(assoc-in [:ids-map temp-id] token)))))
{:tree {}
:ids-map {}}
tokens))
(dm/legacy
(defn token-names-tree
"Convert tokens into a nested tree with their `:name` as the path."
[tokens]
(reduce
(fn [acc [_ {:keys [name] :as token}]]
(when (string? name)
(let [path (token-name->path name)]
(assoc-in acc path token))))
{} tokens)))
(defn token-name-path-exists?
"Traverses the path from `token-name` down a `token-tree` and checks if a token at that path exists.