From 2ec76caed7fcde42c04627b37afc4ec95aa12e8d Mon Sep 17 00:00:00 2001 From: Tienson Qin Date: Thu, 26 Jun 2025 18:24:33 +0800 Subject: [PATCH] fix: export datoms urls --- src/main/frontend/worker/export.cljs | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/src/main/frontend/worker/export.cljs b/src/main/frontend/worker/export.cljs index a29689bc3e..cd9387f161 100644 --- a/src/main/frontend/worker/export.cljs +++ b/src/main/frontend/worker/export.cljs @@ -61,11 +61,17 @@ [conn] (some->> (d/datoms @conn :eavt) (map (fn [{:keys [e a v t]}] - (if (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))))))) + (cond + (= :url (:logseq.property/type (d/entity @conn a))) + (d/datom e a "https://logseq.com" 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))))))