From 157cc5a994a5ed3d0c03a1bfe358d9bcea890226 Mon Sep 17 00:00:00 2001 From: Florian Schroedl Date: Thu, 22 Aug 2024 11:21:53 +0200 Subject: [PATCH] Automatically show themes and sets on dev and PR previews --- .../app/main/ui/workspace/tokens/sidebar.cljs | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/frontend/src/app/main/ui/workspace/tokens/sidebar.cljs b/frontend/src/app/main/ui/workspace/tokens/sidebar.cljs index 39bb1b4bcf..672747a25b 100644 --- a/frontend/src/app/main/ui/workspace/tokens/sidebar.cljs +++ b/frontend/src/app/main/ui/workspace/tokens/sidebar.cljs @@ -283,8 +283,22 @@ (when @open? [:& 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 [] - (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 (fn [] (letfn [(toggle! []