Token deletion

common/src/app/common/files/changes.cljc

@@ -298,7 +298,6 @@
     [:del-token-set
      [:map {:title "DelTokenSetChange"}
       [:type [:= :del-token-set]]
-      [:id ::sm/uuid]
       [:name :string]]]
 
     [:add-token

common/src/app/common/files/changes_builder.cljc

@@ -739,24 +739,25 @@
   [changes token-set]
   (-> changes
       (update :redo-changes conj {:type :add-token-set :token-set token-set})
-      (update :undo-changes conj {:type :del-token-set :id (:id token-set) :name (:name token-set)})
+      (update :undo-changes conj {:type :del-token-set :name (:name token-set)})
       (apply-changes-local)))
 
 (defn update-token-set
   [changes token-set prev-token-set]
   (-> changes
       (update :redo-changes conj {:type :mod-token-set :name (:name prev-token-set) :token-set token-set})
-      (update :undo-changes conj {:type :mod-token-set :name (:name prev-token-set) :token-set (or prev-token-set token-set)})
+      (update :undo-changes conj {:type :mod-token-set :name (:name token-set) :token-set (or prev-token-set token-set)})
       (apply-changes-local)))
 
 (defn delete-token-set
-  [changes token-set-id token-set-name]
+  [changes token-set-name]
   (assert-library! changes)
   (let [library-data (::library-data (meta changes))
-        prev-token-set (get-in library-data [:token-sets-index token-set-id])]
+        prev-token-theme (some-> (get library-data :tokens-lib)
+                                 (ctob/get-set token-set-name))]
     (-> changes
-        (update :redo-changes conj {:type :del-token-set :id token-set-id :name token-set-name})
-        (update :undo-changes conj {:type :add-token-set :token-set prev-token-set})
+        (update :redo-changes conj {:type :del-token-set :name token-set-name})
+        (update :undo-changes conj {:type :add-token-set :token-set prev-token-theme})
         (apply-changes-local))))
 
 (defn add-token

frontend/src/app/main/data/tokens.cljs

@@ -210,14 +210,14 @@
          (dch/commit-changes changes)
          (wtu/update-workspace-tokens))))))
 
-(defn delete-token-set [token-set-id token-set-name]
+(defn delete-token-set [token-set-name]
   (ptk/reify ::delete-token-set
     ptk/WatchEvent
     (watch [it state _]
       (let [data (get state :workspace-data)
             changes (-> (pcb/empty-changes it)
                         (pcb/with-library-data data)
-                        (pcb/delete-token-set token-set-id token-set-name))]
+                        (pcb/delete-token-set token-set-name))]
         (rx/of
          (dch/commit-changes changes)
          (wtu/update-workspace-tokens))))))

frontend/src/app/main/ui/workspace/tokens/sets.cljs

@@ -7,7 +7,6 @@
 (ns app.main.ui.workspace.tokens.sets
   (:require-macros [app.main.style :as stl])
   (:require
-   [app.common.data.macros :as dm]
    [app.main.data.tokens :as wdt]
    [app.main.refs :as refs]
    [app.main.store :as st]
@@ -29,7 +28,7 @@
 
 (defn on-delete-token-set-click [name event]
   (dom/stop-propagation event)
-  (st/emit! (wdt/delete-token-set (dm/legacy nil) name)))
+  (st/emit! (wdt/delete-token-set name)))
 
 (defn on-update-token-set [set-name token-set]
   (st/emit! (wdt/update-token-set set-name token-set)))

frontend/src/app/main/ui/workspace/tokens/sets_context_menu.cljs

@@ -32,7 +32,7 @@
   (let [{:keys [on-edit]} (sets-context/use-context)]
     [:ul {:class (stl/css :context-list)}
      [:& menu-entry {:title "Rename" :on-click #(on-edit token-set-id)}]
-     [:& menu-entry {:title "Delete" :on-click #(st/emit! (wdt/delete-token-set token-set-id token-set-name))}]]))
+     [:& menu-entry {:title "Delete" :on-click #(st/emit! (wdt/delete-token-set token-set-name))}]]))
 
 (mf/defc sets-context-menu
   []