Merge branch 'tokens-studio-florian-70-sets-in-theme-create' into develop

This commit is contained in:
Andrés Moya 2025-04-07 17:08:33 +02:00
commit a8890e4b13
2 changed files with 107 additions and 104 deletions

View file

@ -33,11 +33,11 @@
[rumext.v2 :as mf]))
(mf/defc empty-themes
[{:keys [set-state]}]
[{:keys [change-view]}]
(let [create-theme
(mf/use-fn
(mf/deps set-state)
#(set-state (fn [_] {:type :create-theme})))
(mf/deps change-view)
#(change-view :create-theme))
close-modal
(mf/use-fn
#(st/emit! (modal/hide)))]
@ -78,17 +78,17 @@
:label ""}]]))
(mf/defc themes-overview
[{:keys [set-state]}]
[{:keys [change-view]}]
(let [active-theme-ids (mf/deref refs/workspace-active-theme-paths)
themes-groups (mf/deref refs/workspace-token-theme-tree-no-hidden)
create-theme
(mf/use-fn
(mf/deps set-state)
(mf/deps change-view)
(fn [e]
(dom/prevent-default e)
(dom/stop-propagation e)
(set-state (fn [_] {:type :create-theme}))))
(change-view :create-theme)))
close-modal
(mf/use-fn
@ -122,8 +122,7 @@
(fn [e]
(dom/prevent-default e)
(dom/stop-propagation e)
(set-state (fn [_] {:type :edit-theme
:theme-path [(:id theme) (:group theme) (:name theme)]})))]]
(change-view :edit-theme {:theme-path [(:id theme) (:group theme) (:name theme)]}))]]
[:li {:key theme-id
:class (stl/css :theme-row)}
[:div {:class (stl/css :theme-switch-row)}
@ -241,54 +240,6 @@
:disabled disabled?}
(tr "workspace.token.save-theme")]]))
(mf/defc create-theme
[{:keys [set-state]}]
(let [theme (ctob/make-token-theme :name "")
on-back #(set-state (constantly {:type :themes-overview}))
theme-state* (mf/use-state theme)
theme-state (deref theme-state*)
disabled? (-> (:name theme-state)
(str/trim)
(str/empty?))
on-change-field
(mf/use-fn
(fn [field value]
(swap! theme-state* #(assoc % field value))))
on-save-form
(mf/use-fn
(mf/deps theme-state)
(fn [e]
(dom/prevent-default e)
(let [theme (-> theme-state
(update :name str/trim)
(update :group str/trim)
(update :description str/trim))]
(when-not (str/empty? (:name theme))
(st/emit! (ptk/event ::ev/event {::ev/name "create-tokens-theme"})
(wdt/create-token-theme theme)))
(on-back))))
close-modal
(mf/use-fn
(fn [e]
(dom/prevent-default e)
(st/emit! (modal/hide))))]
[:div {:class (stl/css :themes-modal-wrapper)}
[:> heading* {:level 2 :typography "headline-medium" :class (stl/css :themes-modal-title)}
(tr "workspace.token.add-new-theme")]
[:form {:on-submit on-save-form}
[:div {:class (stl/css :create-theme-wrapper)}
[:> theme-inputs* {:theme theme
:on-change-field on-change-field}]
[:div {:class (stl/css :button-footer)}
[:> theme-modal-buttons* {:close-modal close-modal
:on-save-form on-save-form
:disabled? disabled?}]]]]]))
(defn- make-lib-with-theme
[theme sets]
(let [tlib (-> (ctob/make-tokens-lib)
@ -296,40 +247,39 @@
tlib (reduce ctob/add-set tlib sets)]
(ctob/activate-theme tlib (:group theme) (:name theme))))
(mf/defc controlled-edit-theme
[{:keys [state set-state]}]
(let [{:keys [theme-path]} @state
[_ theme-group theme-name] theme-path
ordered-token-sets (mf/deref refs/workspace-ordered-token-sets)
(mf/defc edit-create-theme*
[{:keys [change-view theme on-save is-editing has-prev-view]}]
(let [ordered-token-sets (mf/deref refs/workspace-ordered-token-sets)
token-sets (mf/deref refs/workspace-token-sets-tree)
theme (mf/deref (refs/workspace-token-theme theme-group theme-name))
theme-state* (mf/use-state theme)
theme-state (deref theme-state*)
lib (make-lib-with-theme theme-state ordered-token-sets)
current-theme* (mf/use-state theme)
current-theme (deref current-theme*)
lib (make-lib-with-theme current-theme ordered-token-sets)
;; Form / Modal handlers
on-back #(set-state (constantly {:type :themes-overview}))
disabled? (-> (:name theme-state)
on-back (mf/use-fn
(mf/deps change-view)
#(change-view :themes-overview))
disabled? (-> (:name current-theme)
(str/trim)
(str/empty?))
on-change-field
(mf/use-fn
(fn [field value]
(swap! theme-state* #(assoc % field value))))
(swap! current-theme* #(assoc % field value))))
on-save-form
(mf/use-fn
(mf/deps theme theme-state)
(mf/deps current-theme on-save on-back)
(fn [e]
(dom/prevent-default e)
(let [theme' (-> theme-state
(let [theme' (-> current-theme
(update :name str/trim)
(update :group str/trim)
(update :description str/trim))]
(when-not (str/empty? (:name theme))
(st/emit! (wdt/update-token-theme [(:group theme) (:name theme)] theme')))
(when-not (str/empty? (:name theme'))
(on-save theme'))
(on-back))))
close-modal
@ -338,39 +288,39 @@
(dom/prevent-default e)
(st/emit! (modal/hide))))
on-delete-token
on-delete-theme
(mf/use-fn
(mf/deps theme on-back)
(mf/deps current-theme on-back)
(fn []
(st/emit! (wdt/delete-token-theme (:group theme) (:name theme)))
(st/emit! (wdt/delete-token-theme (:group current-theme) (:name current-theme)))
(on-back)))
;; Sets tree handlers
token-set-group-active?
(mf/use-fn
(mf/deps theme-state)
(mf/deps current-theme)
(fn [group-path]
(ctob/sets-at-path-all-active? lib group-path)))
token-set-active?
(mf/use-fn
(mf/deps theme-state)
(mf/deps current-theme)
(fn [name]
(contains? (:sets theme-state) name)))
(contains? (:sets current-theme) name)))
on-toggle-token-set
(mf/use-fn
(mf/deps theme-state)
(mf/deps current-theme)
(fn [set-name]
(swap! theme-state* #(ctob/toggle-set % set-name))))
(swap! current-theme* #(ctob/toggle-set % set-name))))
on-toggle-token-set-group
(mf/use-fn
(mf/deps theme-state ordered-token-sets)
(mf/deps current-theme ordered-token-sets)
(fn [group-path]
(swap! theme-state* (fn [theme']
(let [lib' (make-lib-with-theme theme' ordered-token-sets)]
(clt/toggle-token-set-group group-path lib' theme'))))))
(swap! current-theme* (fn [theme']
(let [lib' (make-lib-with-theme theme' ordered-token-sets)]
(clt/toggle-token-set-group group-path lib' theme'))))))
on-click-token-set
(mf/use-fn
@ -381,17 +331,20 @@
[:div {:class (stl/css :themes-modal-wrapper)}
[:> heading* {:level 2 :typography "headline-medium" :class (stl/css :themes-modal-title)}
(tr "workspace.token.edit-theme-title")]
(if is-editing
(tr "workspace.token.edit-theme-title")
(tr "workspace.token.add-new-theme"))]
[:form {:on-submit on-save-form :class (stl/css :edit-theme-form)}
[:div {:class (stl/css :edit-theme-wrapper)}
[:button {:on-click on-back
:class (stl/css :back-btn)
:type "button"}
[:> icon* {:icon-id ic/arrow-left :aria-hidden true}]
(tr "workspace.token.back-to-themes")]
(when has-prev-view
[:button {:on-click on-back
:class (stl/css :back-btn)
:type "button"}
[:> icon* {:icon-id ic/arrow-left :aria-hidden true}]
(tr "workspace.token.back-to-themes")])
[:> theme-inputs* {:theme theme
[:> theme-inputs* {:theme current-theme
:on-change-field on-change-field}]
[:> text* {:as "span" :typography "body-small" :class (stl/css :select-sets-message)}
(tr "workspace.token.set-selection-theme")]
@ -408,31 +361,80 @@
:origin "theme-modal"}]]
[:div {:class (stl/css :edit-theme-footer)}
[:> button* {:variant "secondary"
:type "button"
:icon "delete"
:on-click on-delete-token}
(tr "labels.delete")]
(when is-editing
[:> button* {:variant "secondary"
:type "button"
:icon "delete"
:on-click on-delete-theme}
(tr "labels.delete")])
[:div {:class (stl/css :button-footer)}
[:> theme-modal-buttons* {:close-modal close-modal
:on-save-form on-save-form
:disabled? disabled?}]]]]]]))
(defn has-prev-view [prev-view-type]
(contains? #{:empty-themes :themes-overview} prev-view-type))
(mf/defc edit-theme
[{:keys [state change-view]}]
(let [{:keys [theme-path]} state
[_ theme-group theme-name] theme-path
theme (mf/deref (refs/workspace-token-theme theme-group theme-name))
has-prev-view (has-prev-view (:prev-type state))
on-save
(mf/use-fn
(mf/deps theme)
(fn [theme']
(st/emit! (wdt/update-token-theme [(:group theme) (:name theme)] theme'))))]
[:> edit-create-theme*
{:change-view change-view
:theme theme
:on-save on-save
:is-editing true
:has-prev-view has-prev-view}]))
(mf/defc create-theme
[{:keys [state change-view]}]
(let [theme (ctob/make-token-theme :name "")
on-save
(mf/use-fn
(fn [theme]
(st/emit! (ptk/event ::ev/event {::ev/name "create-tokens-theme"})
(wdt/create-token-theme theme))))
has-prev-view (has-prev-view (:prev-type state))]
[:> edit-create-theme*
{:change-view change-view
:theme theme
:on-save on-save
:has-prev-view has-prev-view}]))
(mf/defc themes-modal-body*
{::mf/private true}
[]
(let [themes (mf/deref refs/workspace-token-themes-no-hidden)
state (mf/use-state #(if (empty? themes)
{:type :create-theme}
{:type :themes-overview}))
set-state (mf/use-fn #(swap! state %))
component (case (:type @state)
(let [themes (mf/deref refs/workspace-token-themes-no-hidden)
state* (mf/use-state #(if (empty? themes)
{:type :create-theme}
{:type :themes-overview}))
state (deref state*)
change-view (mf/use-fn
(fn [type & {:keys [theme-path]}]
(swap! state* (fn [current-state]
(cond-> current-state
:always (assoc :type type
:prev-type (:type current-state))
:theme-path (assoc :theme-path theme-path))))))
component (case (:type state)
:empty-themes empty-themes
:themes-overview (if (empty? themes) empty-themes themes-overview)
:edit-theme controlled-edit-theme
:edit-theme edit-theme
:create-theme create-theme)]
[:& component {:state state
:set-state set-state}]))
:change-view change-view}]))
(mf/defc token-themes-modal
{::mf/wrap-props false

View file

@ -68,6 +68,7 @@
.button-footer {
display: flex;
margin-left: auto;
justify-content: flex-end;
gap: $s-6;
}