From 4aef2a475a50507934aafec75a69cb2b334ad35c Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 28 Feb 2024 18:20:46 +0100
Subject: [PATCH] :sparkles: Add audit events for component annotations

---
 frontend/src/app/main/data/workspace.cljs | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/frontend/src/app/main/data/workspace.cljs b/frontend/src/app/main/data/workspace.cljs
index 1720992f1..0ef0c3c7a 100644
--- a/frontend/src/app/main/data/workspace.cljs
+++ b/frontend/src/app/main/data/workspace.cljs
@@ -2225,7 +2225,10 @@
                         (pcb/with-library-data data)
                         (pcb/update-component id update-fn))]
 
-        (rx/of (dch/commit-changes changes))))))
+        (rx/concat
+         (rx/of (dch/commit-changes changes))
+         (when (nil? annotation)
+           (rx/of (ptk/data-event ::ev/event {::ev/name "delete-component-annotation"}))))))))
 
 (defn set-annotations-expanded
   [expanded]
@@ -2242,7 +2245,12 @@
       (if id
         (-> (assoc-in state [:workspace-annotations :id-for-create] id)
             (assoc-in [:workspace-annotations :expanded] true))
-        (d/dissoc-in state [:workspace-annotations :id-for-create])))))
+        (d/dissoc-in state [:workspace-annotations :id-for-create])))
+
+    ptk/WatchEvent
+    (watch [_ _ _]
+      (when (some? id)
+        (rx/of (ptk/data-event ::ev/event {::ev/name "create-component-annotation"}))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Preview blend modes