From 59005e3bb81436e4507fca8f420783894f48929f Mon Sep 17 00:00:00 2001
From: "alonso.torres" <alonso.torres@kaleidos.net>
Date: Thu, 11 Jul 2024 13:45:36 +0200
Subject: [PATCH] :sparkles: Changes to plugin events

---
 frontend/src/app/plugins/api.cljs    |  4 +-
 frontend/src/app/plugins/events.cljs | 63 ++++++++++++++++++++++------
 2 files changed, 52 insertions(+), 15 deletions(-)

diff --git a/frontend/src/app/plugins/api.cljs b/frontend/src/app/plugins/api.cljs
index 076c9f0fa..9a944c48c 100644
--- a/frontend/src/app/plugins/api.cljs
+++ b/frontend/src/app/plugins/api.cljs
@@ -61,8 +61,8 @@
 (deftype PenpotContext [$plugin]
   Object
   (addListener
-    [_ type callback]
-    (events/add-listener type $plugin callback))
+    [_ type callback props]
+    (events/add-listener type $plugin callback props))
 
   (removeListener
     [_ listener-id]
diff --git a/frontend/src/app/plugins/events.cljs b/frontend/src/app/plugins/events.cljs
index 27d926948..fee2c3089 100644
--- a/frontend/src/app/plugins/events.cljs
+++ b/frontend/src/app/plugins/events.cljs
@@ -6,15 +6,20 @@
 
 (ns app.plugins.events
   (:require
+   [app.common.data.macros :as dm]
+   [app.main.data.workspace.state-helpers :as wsh]
    [app.main.store :as st]
    [app.plugins.file :as file]
    [app.plugins.page :as page]
+   [app.plugins.parser :as parser]
+   [app.plugins.shape :as shape]
+   [app.util.object :as obj]
    [goog.functions :as gf]))
 
 (defmulti handle-state-change (fn [type _] type))
 
 (defmethod handle-state-change "finish"
-  [_ _ old-val new-val]
+  [_ _ old-val new-val _]
   (let [old-file-id (:current-file-id old-val)
         new-file-id (:current-file-id new-val)]
     (if (and (some? old-file-id) (nil? new-file-id))
@@ -22,7 +27,7 @@
       ::not-changed)))
 
 (defmethod handle-state-change "filechange"
-  [_ plugin-id old-val new-val]
+  [_ plugin-id old-val new-val _]
   (let [old-file-id (:current-file-id old-val)
         new-file-id (:current-file-id new-val)]
     (if (identical? old-file-id new-file-id)
@@ -30,7 +35,7 @@
       (file/file-proxy plugin-id new-file-id))))
 
 (defmethod handle-state-change "pagechange"
-  [_ plugin-id old-val new-val]
+  [_ plugin-id old-val new-val _]
   (let [old-page-id (:current-page-id old-val)
         new-page-id (:current-page-id new-val)]
     (if (identical? old-page-id new-page-id)
@@ -38,7 +43,7 @@
       (page/page-proxy plugin-id (:current-file-id new-val) new-page-id))))
 
 (defmethod handle-state-change "selectionchange"
-  [_ _ old-val new-val]
+  [_ _ old-val new-val _]
   (let [old-selection (get-in old-val [:workspace-local :selected])
         new-selection (get-in new-val [:workspace-local :selected])]
     (if (identical? old-selection new-selection)
@@ -46,7 +51,7 @@
       (apply array (map str new-selection)))))
 
 (defmethod handle-state-change "themechange"
-  [_ _ old-val new-val]
+  [_ _ old-val new-val _]
   (let [old-theme (get-in old-val [:profile :theme])
         new-theme (get-in new-val [:profile :theme])]
     (if (identical? old-theme new-theme)
@@ -55,23 +60,55 @@
         "dark"
         new-theme))))
 
+(defmethod handle-state-change "shapechange"
+  [_ plugin-id old-val new-val props]
+  (let [shape-id (-> (obj/get props "shapeId") parser/parse-id)
+        old-shape (wsh/lookup-shape old-val shape-id)
+        new-shape (wsh/lookup-shape new-val shape-id)
+
+        file-id (:current-file-id new-val)
+        page-id (:current-page-id new-val)]
+    (if (and (identical? old-shape new-shape) (some? plugin-id) (some? file-id) (some? page-id) (some? shape-id))
+      ::not-changed
+      (shape/shape-proxy plugin-id file-id page-id shape-id))))
+
+(defmethod handle-state-change "contentsave"
+  [_ _ old-val new-val _]
+  (let [old-status (dm/get-in old-val [:persistence :status])
+        new-status (dm/get-in new-val [:persistence :status])]
+    (if (and (= :saved new-status) (not= new-status old-status))
+      ::void ;; Changed but void
+      ::not-changed)))
+
 (defmethod handle-state-change :default
   [_ _ _ _]
   ::not-changed)
 
 (defn add-listener
-  [type plugin-id callback]
-  (let [key (js/Symbol)
-        callback (gf/debounce callback 10)]
+  [type plugin-id callback props]
+  (let [plugin-id (parser/parse-id plugin-id)
+        key (js/Symbol)
+
+        ;; We wrap the callback in an exception handler so the plugins
+        ;; don't crash the application
+        safe-callback
+        (fn [value]
+          (try
+            (if (= ::void value)
+              (callback)
+              (callback value))
+            (catch :default cause
+              (.error js/console cause))))
+
+        ;; We also debounce the callbacks so we don't get too many at the same time
+        debounced-callback (gf/debounce safe-callback 10)]
+
     (add-watch
      st/state key
      (fn [_ _ old-val new-val]
-       (let [result (handle-state-change type plugin-id old-val new-val)]
+       (let [result (handle-state-change type plugin-id old-val new-val props)]
          (when (not= ::not-changed result)
-           (try
-             (callback result)
-             (catch :default cause
-               (.error js/console cause)))))))
+           (debounced-callback result)))))
 
     ;; return the generated key
     key))