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

Automatically show themes and sets on dev and PR previews

Browse source
This commit is contained in:
Florian Schroedl 2024-08-22 11:21:53 +02:00
parent 37a3fbcec2
commit 157cc5a994
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -283,8 +283,22 @@
(when @open? (when @open?
[:& sets-list {:selected-set-id selected-set-id}])])) [:& sets-list {:selected-set-id selected-set-id}])]))
(defn dev-or-preview-url? [url]
(let [host (-> url js/URL. .-host)
pure-host (first (str/split host #":"))
domain (second (str/split pure-host #"\."))]
(or (= domain "penpot.tokens.studio")
(= pure-host "localhost"))))
(defn location-url-dev-or-preview-url!? []
(dev-or-preview-url? js/window.location.href))
(defn temp-use-themes-flag [] (defn temp-use-themes-flag []
(let [show? (mf/use-state (get @storage ::show-token-themes-sets? false))] (let [show? (mf/use-state (or
(location-url-dev-or-preview-url!?)
(get @storage ::show-token-themes-sets?)
false))]
(mf/use-effect (mf/use-effect
(fn [] (fn []
(letfn [(toggle! [] (letfn [(toggle! []