fix: only retractEntity when no page alias deleted-page

src/main/frontend/handler/page.cljs

@@ -21,6 +21,7 @@
             [frontend.commands :as commands]
             [frontend.date :as date]
             [frontend.db-schema :as db-schema]
+            [frontend.db.conn :as conn]
             [clojure.walk :as walk]
             [frontend.git :as git]
             [frontend.fs :as fs]
@@ -181,15 +182,21 @@
                           (js/console.error "error: " err))))))
 
 
-          ;; not removing entire entity, because :block/alias still use this entity.
-          ;; so just delete related file and make remove most page-related attrs.
-          ;; (db/transact! [[:db.fn/retractEntity [:block/name page-name]]])
-
-          (when-let [id (:db/id (db/entity [:block/name page-name]))]
-            (let [txs (mapv (fn [attribute]
-                             [:db/retract id attribute])
-                           db-schema/retract-page-attributes)]
-              (db/transact! txs)))
+          ;; if other page alias this pagename,
+          ;; then just remove some attrs of this entity instead of retractEntity
+          (if (empty?
+               (d/q '[:find ?a
+                      :in $ ?page-name
+                      :where
+                      [?p :block/alias ?als]
+                      [?a :block/name ?page-name]
+                      [(= ?als ?a)]] (conn/get-conn true) page-name))
+            (db/transact! [[:db.fn/retractEntity [:block/name page-name]]])
+            (when-let [id (:db/id (db/entity [:block/name page-name]))]
+              (let [txs (mapv (fn [attribute]
+                                [:db/retract id attribute])
+                              db-schema/retract-page-attributes)]
+                (db/transact! txs))))
 
           (ok-handler))))))