johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-11 22:14:05 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki Activity

Fix renamed theme staying in active-themes

Browse Source
This commit is contained in:
Florian Schroedl
2024-09-30 14:44:42 +02:00
parent df8f67b5d3
commit c75ab61732
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
common/src/app/common/types/tokens_lib.cljc
View File

@@ -487,16 +487,21 @@
(let [theme' (-> (make-token-theme (f theme))
(assoc :modified-at (dt/now)))
group' (:group theme')
name' (:name theme')]
name' (:name theme')
same-group? (= group group')
same-name? (= name name')
same-path? (and same-group? same-name?)]
(check-token-theme! theme')
(TokensLib. sets
set-groups
(if (and (= group group') (= name name'))
(if same-path?
(update themes group' assoc name' theme')
(-> themes
(d/oassoc-in-before [group name] [group' name'] theme')
(d/dissoc-in [group name])))
active-themes))
(if same-path?
active-themes
(disj active-themes (token-theme-path group name)))))
this)))
(delete-theme [_ group name]