feat(search): delete the search db when unlink a graph

src/electron/electron/handler.cljs

@@ -124,6 +124,9 @@
 (defmethod handle :truncate-blocks [window [_ repo]]
   (search/truncate-blocks-table! repo))
 
+(defmethod handle :remove-db [window [_ repo]]
+  (search/delete-db! repo))
+
 (defn- get-file-ext
   [file]
   (last (string/split file #"\.")))

src/electron/electron/search.cljs

@@ -13,8 +13,8 @@
 (defn close!
   []
   (when @databases
-    (doseq [database @databases]
-      (.close databases))
+    (doseq [[_ database] @databases]
+      (.close database))
     (reset! databases nil)))
 
 (defn normalize-db-name
@@ -78,11 +78,15 @@
   []
   (fs/ensureDirSync (get-search-dir)))
 
-(defn open-db!
+(defn get-db-full-path
   [db-name]
   (let [db-name (normalize-db-name db-name)
-        search-dir (get-search-dir)
-        db-full-path (path/join search-dir db-name)
+        search-dir (get-search-dir)]
+    [db-name (path/join search-dir db-name)]))
+
+(defn open-db!
+  [db-name]
+  (let [[db-name db-full-path] (get-db-full-path db-name)
         db (sqlite3 db-full-path nil)
         _ (create-blocks-table! db)]
     (swap! databases assoc db-name db)))
@@ -150,7 +154,15 @@
          ;;               "drop table blocks_fts;")
          ]
      ;; (.run ^object stmt)
-     )))
+      )))
+
+(defn delete-db!
+  [repo]
+  (when-let [database (get-db repo)]
+    (.close database)
+    (let [[_ db-full-path] (get-db-full-path repo)]
+      (println "Delete search indice: " db-full-path)
+      (fs/unlinkSync db-full-path))))
 
 
 (comment

src/main/frontend/handler/repo.cljs

@@ -593,6 +593,7 @@
                       (db/remove-conn! url)
                       (db/remove-db! url)
                       (db/remove-files-db! url)
+                      (search/remove-db! url)
                       (fs/rmdir! (config/get-repo-dir url))
                       (state/delete-repo! repo))]
     (if (config/local-db? url)

src/main/frontend/search.cljs

@@ -209,3 +209,8 @@
   (when-let [engine (get-engine repo)]
     (protocol/truncate-blocks! engine))
   (swap! indices assoc-in [repo :pages] nil))
+
+(defn remove-db!
+  [repo]
+  (when-let [engine (get-engine repo)]
+    (protocol/remove-db! engine)))

src/main/frontend/search/browser.cljs

@@ -51,4 +51,6 @@
                    (.add indice (bean/->js block)))))
              indice)))
   (truncate-blocks! [this]
-    (swap! indices assoc-in [repo :blocks] nil)))
+    (swap! indices assoc-in [repo :blocks] nil))
+  (remove-db! [this]
+    nil))

src/main/frontend/search/node.cljs

@@ -23,4 +23,6 @@
   (transact-blocks! [this data]
     (ipc/ipc "transact-blocks" repo (bean/->js data)))
   (truncate-blocks! [this]
-    (ipc/ipc "truncate-blocks" repo)))
+    (ipc/ipc "truncate-blocks" repo))
+  (remove-db! [this]
+    (ipc/ipc "remove-db" repo)))

src/main/frontend/search/protocol.cljs

@@ -4,4 +4,5 @@
   (query [this q option])
   (rebuild-blocks-indice! [this])
   (transact-blocks! [this data])
-  (truncate-blocks! [this]))
+  (truncate-blocks! [this])
+  (remove-db! [this]))