Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-21 06:02:32 -05:00
Code Issues Activity

Give new tokens without a name a temporary hardcoded string

Browse source
This commit is contained in:
Florian Schroedl 2024-06-21 17:00:56 +02:00
parent 1dcdddb2db
commit dd62c7fe18
1 changed files with 34 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
frontend/src/app/main/ui/workspace/tokens/style_dictionary.cljs
View file

@ -119,15 +119,18 @@
;; Hooks -----------------------------------------------------------------------
(def new-token-temp-name
"TOKEN_STUDIO_SYSTEM.TEMP")
(defn use-debonced-resolve-callback
[tokens on-success & {:keys [cached timeout]
:or {cached {}
timeout 500}}]
[name-ref token tokens callback & {:keys [cached timeout]
:or {cached {}
timeout 500}}]
(let [timeout-id-ref (mf/use-ref nil)
cache (mf/use-ref cached)
debounced-resolver-callback
(mf/use-callback
(mf/deps on-success tokens)
(mf/deps token callback tokens)
(fn [event]
(let [input (dom/get-target-val event)
timeout-id (js/Symbol)]
@ -135,19 +138,33 @@
(js/setTimeout
(fn []
(when (= (mf/ref-val timeout-id-ref) timeout-id)
(if-let [cached (-> (mf/ref-val cache)
(get tokens))]
(on-success cached)
(let [token-id (random-uuid)
new-tokens (assoc tokens token-id {:id token-id
:value input
:name "TEMP"})]
(-> (resolve-tokens+ new-tokens)
(p/catch js/console.error)
(p/then (fn [resolved-tokens]
(mf/set-ref-val! cache (assoc (mf/ref-val cache) input resolved-tokens))
(when (= (mf/ref-val timeout-id-ref) timeout-id)
(on-success (get resolved-tokens token-id))))))))))
(let [cached (-> (mf/ref-val cache)
(get tokens))
token-name (if (empty? @name-ref) new-token-temp-name @name-ref)]
(cond
cached (callback cached)
(token-self-reference? token-name input) (callback :error/token-self-reference)
:else (let [token-id (or (:id token) (random-uuid))
new-tokens (update tokens token-id merge {:id token-id
:value input
:name token-name})]
(-> (resolve-tokens+ new-tokens)
(p/finally
(fn [resolved-tokens _err]
(js/console.log "input" input (empty? (str/trim input)))
(cond
;; Ignore outdated callbacks because the user input changed since it tried to resolve
(not= (mf/ref-val timeout-id-ref) timeout-id) nil
(empty? (str/trim input)) (callback nil)
:else (let [resolved-token (get resolved-tokens token-id)]
(js/console.log "resolved-token" resolved-token)
(if (:resolved-value resolved-token)
(do
(mf/set-ref-val! cache (assoc (mf/ref-val cache) input resolved-tokens))
(callback resolved-token))
(callback :error/token-missing-reference))))))))))))
timeout))))]
debounced-resolver-callback))