improve(plugin): filter hooks of db block changes for performance

src/main/frontend/handler/plugin.cljs

@@ -358,6 +358,20 @@
   ([pid effect]
    (js/LSPluginCore.unregisterTheme (name pid) effect)))
 
+(defn get-installed-hooks
+  []
+  (:plugin/installed-hooks @state/state))
+
+(defn plugin-hook-installed?
+  [pid hook]
+  (when-let [hooks (and pid (get-installed-hooks))]
+    (contains? (get hooks hook) (keyword pid))))
+
+(defn db-block-hook-installed?
+  [uuid]
+  (when-let [hook (and uuid (str "hook:db:block_" (string/replace (str uuid) "-" "_")))]
+    (boolean (seq (get (get-installed-hooks) hook)))))
+
 (def *fenced-code-providers (atom #{}))
 
 (defn register-fenced-code-renderer
@@ -490,8 +504,10 @@
 
 (defn hook-plugin-block-changes
   [{:keys [blocks tx-data tx-meta]}]
-  (let [tx-data' (group-by first tx-data)]
-    (doseq [b blocks]
+  (let [tx-data' (group-by first tx-data)
+        blocks'  (filter #(when-let [uuid (:block/uuid %)]
+                            (db-block-hook-installed? uuid)) blocks)]
+    (doseq [b blocks']
       (let [type (str "block:" (:block/uuid b))]
         (hook-plugin-db type {:block b :tx-data (get tx-data' (:db/id b)) :tx-meta tx-meta})))))
 

src/main/logseq/api.cljs

@@ -89,9 +89,7 @@
 
 (defn ^:export should-exec-plugin-hook
   [pid hook]
-  (let [hooks (:plugin/installed-hooks @state/state)]
-    (or (nil? (seq hooks))
-        (contains? (get hooks hook) (keyword pid)))))
+  (plugin-handler/plugin-hook-installed? pid hook))
 
 ;; base
 (defn ^:export get_state_from_store