Add tokens header

This commit is contained in:
Florian Schroedl 2024-08-23 11:39:13 +02:00
parent acc3606cbb
commit 40846b87c2

View file

@ -248,7 +248,8 @@
(mf/defc tokens-explorer (mf/defc tokens-explorer
[_props] [_props]
(let [objects (mf/deref refs/workspace-page-objects) (let [open? (mf/use-state true)
objects (mf/deref refs/workspace-page-objects)
selected (mf/deref refs/selected-shapes) selected (mf/deref refs/selected-shapes)
selected-shapes (into [] (keep (d/getf objects)) selected) selected-shapes (into [] (keep (d/getf objects)) selected)
@ -261,15 +262,21 @@
(sorted-token-groups tokens))] (sorted-token-groups tokens))]
[:article [:article
[:& token-context-menu] [:& token-context-menu]
[:div.assets-bar [:& title-bar {:collapsable true
(for [{:keys [token-key token-type-props tokens]} (concat (:filled token-groups) :collapsed (not @open?)
(:empty token-groups))] :all-clickable true
[:& token-component {:key token-key :title "TOKENS"
:type token-key :on-collapsed #(swap! open? not)}]
:selected-shapes selected-shapes (when @open?
:active-theme-tokens active-theme-tokens [:div.assets-bar
:tokens tokens (for [{:keys [token-key token-type-props tokens]} (concat (:filled token-groups)
:token-type-props token-type-props}])]])) (:empty token-groups))]
[:& token-component {:key token-key
:type token-key
:selected-shapes selected-shapes
:active-theme-tokens active-theme-tokens
:tokens tokens
:token-type-props token-type-props}])])]))
(defn dev-or-preview-url? [url] (defn dev-or-preview-url? [url]
(let [host (-> url js/URL. .-host) (let [host (-> url js/URL. .-host)