0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-07 23:08:24 -05:00
This commit is contained in:
Florian Schroedl 2024-08-23 10:15:37 +02:00
parent bac16aadd8
commit a9a5f69c93

View file

@ -204,7 +204,7 @@
{:key (str "token-theme-group" group)}
group
[:ul
(for [{:keys [id name] :as theme} themes]
(for [{:keys [id name] :as _theme} themes]
[:li {:key (str "tokene-theme-" id)}
[:div.spaced
name
@ -221,6 +221,22 @@
(st/emit! (wdt/delete-token-theme id)))}
"🗑️"]]]])]])]]]]))
(mf/defc sets-sidebar
[]
(let [open? (mf/use-state true)]
[:div {:class (stl/css :sets-sidebar)}
[:div {:class (stl/css :sidebar-header)}
[:& title-bar {:collapsable true
:collapsed (not @open?)
:all-clickable true
:title "SETS"
:on-collapsed #(swap! open? not)}]
[:button {:class (stl/css :add-set)
:on-click on-set-add-click}
i/add]]
(when @open?
[:& sets-list])]))
(mf/defc tokens-explorer
[_props]
(let [objects (mf/deref refs/workspace-page-objects)
@ -246,22 +262,6 @@
:tokens tokens
:token-type-props token-type-props}])]]))
(mf/defc sets-sidebar
[]
(let [open? (mf/use-state true)]
[:div {:class (stl/css :sets-sidebar)}
[:div {:class (stl/css :sidebar-header)}
[:& title-bar {:collapsable true
:collapsed (not @open?)
:all-clickable true
:title "SETS"
:on-collapsed #(swap! open? not)}]
[:button {:class (stl/css :add-set)
:on-click on-set-add-click}
i/add]]
(when @open?
[:& sets-list])]))
(defn dev-or-preview-url? [url]
(let [host (-> url js/URL. .-host)
localhost? (= "localhost" (first (str/split host #":")))