clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-26 05:34:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: export datoms urls

Browse Source
This commit is contained in:
Tienson Qin
2025-06-26 18:24:33 +08:00
parent 2635301951
commit 2ec76caed7
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/main/frontend/worker/export.cljs
View File

@@ -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))))))