3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-08 10:07:18 +02:00
Code Issues Projects Releases Packages Wiki Activity

Set toggling without a theme

Browse source
This commit is contained in:
Florian Schroedl 2024-09-26 11:28:14 +02:00
parent 0b2b8a71fb
commit e216d84484
5 changed files with 55 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

47
frontend/src/app/main/data/tokens.cljs
View file

@ -48,6 +48,12 @@
(defn get-tokens-lib [state]
(get-in state [:workspace-data :tokens-lib]))
(def hidden-token-theme-group
"")
(def hidden-token-theme-name
"__PENPOT__HIDDEN__TOKEN__SET__")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; TOKENS Actions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -193,21 +199,42 @@
(rx/of
(dch/commit-changes changes))))))
(defn toggle-token-set [{:keys [token-set-id]}]
#_[target-theme-id (wtts/get-temp-theme-id state)
active-set-ids (wtts/get-active-set-ids state)
theme (-> (wtts/get-workspace-token-theme target-theme-id state)
(assoc :sets active-set-ids))
changes (-> (pcb/empty-changes it)
(pcb/update-token-theme
(wtts/toggle-token-set-to-token-theme token-set-id theme)
theme)
(pcb/update-active-token-themes #{target-theme-id} (wtts/get-active-theme-ids state)))]
(comment
(-> (ctob/make-token-theme
:group ""
:name "bar")
(ctob/toggle-set "foo"))
nil)
(defn toggle-token-set [{:keys [token-set-name]}]
(ptk/reify ::toggle-token-set
ptk/WatchEvent
(watch [it state _]
(let [target-theme-id (wtts/get-temp-theme-id state)
active-set-ids (wtts/get-active-set-ids state)
theme (-> (wtts/get-workspace-token-theme target-theme-id state)
(assoc :sets active-set-ids))
(let [tokens-lib (get-tokens-lib state)
prev-theme (ctob/get-theme tokens-lib hidden-token-theme-group hidden-token-theme-name)
theme (-> (or prev-theme (ctob/make-token-theme
:group hidden-token-theme-group
:name hidden-token-theme-name))
(ctob/toggle-set token-set-name))
prev-active-token-themes (ctob/get-active-theme-paths tokens-lib)
changes (-> (pcb/empty-changes it)
(pcb/update-token-theme
(wtts/toggle-token-set-to-token-theme token-set-id theme)
theme)
(pcb/update-active-token-themes #{target-theme-id} (wtts/get-active-theme-ids state)))]
(pcb/update-active-token-themes #{(ctob/token-theme-path hidden-token-theme-group hidden-token-theme-name)} prev-active-token-themes))
changes' (if prev-theme
(pcb/update-token-theme changes theme prev-theme)
(pcb/add-token-theme changes theme))]
(rx/of
(dch/commit-changes changes)
(dch/commit-changes changes')
(wtu/update-workspace-tokens))))))
(defn delete-token-set [token-set-name]

4
frontend/src/app/main/ui/workspace/tokens/sets.cljs
View file

@ -20,8 +20,8 @@
(def ^:private chevron-icon
(i/icon-xref :arrow (stl/css :chevron-icon)))
(defn on-toggle-token-set-click [token-set-id]
(st/emit! (wdt/toggle-token-set {:token-set-id token-set-id})))
(defn on-toggle-token-set-click [token-set-name]
(st/emit! (wdt/toggle-token-set {:token-set-name token-set-name})))
(defn on-select-token-set-click [name]
(st/emit! (wdt/set-selected-token-set-id name)))