fix: export urls for debug transit

Author: tiensonqin

src/main/frontend/worker/export.cljs

@@ -2,6 +2,7 @@
   "Export data"
   (:require [datascript.core :as d]
             [logseq.cli.common.file :as common-file]
+            [logseq.common.util :as common-util]
             [logseq.db :as ldb]
             [logseq.graph-parser.property :as gp-property]
             [logseq.outliner.tree :as otree]))
@@ -47,18 +48,18 @@
 (defn get-debug-datoms
   [conn]
   (some->> (d/datoms @conn :eavt)
-           (map (fn [{:keys [e a v t]}]
-                  (cond
-                    (= :url (:logseq.property/type (d/entity @conn a)))
-                    (d/datom e a "https://logseq.com" t)
+           (keep (fn [{:keys [e a v t]}]
+                   (cond
+                     (and (= a :block/title) (common-util/url? v))
+                     (d/datom e a "https://logseq.com/debug" t)
 
-                    (and (contains? #{:block/title :block/name} a)
-                         (let [entity (d/entity @conn e)]
-                           (and (not (:db/ident entity))
-                                (not (ldb/journal? entity))
-                                (not (:logseq.property/built-in? entity))
-                                (not (= :logseq.property/query (:db/ident (:logseq.property/created-from-property entity)))))))
-                    (d/datom e a (str "debug " e) t)
+                     (and (contains? #{:block/title :block/name} a)
+                          (let [entity (d/entity @conn e)]
+                            (and (not (:db/ident entity))
+                                 (not (ldb/journal? entity))
+                                 (not (:logseq.property/built-in? entity))
+                                 (not (= :logseq.property/query (:db/ident (:logseq.property/created-from-property entity)))))))
+                     (d/datom e a (str "debug " e) t)
 
-                    :else
-                    (d/datom e a v t))))))
+                     :else
+                     (d/datom e a v t))))))