clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-06-01 19:01:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: more tests

Browse Source
This commit is contained in:
Tienson Qin
2024-12-09 23:22:36 +08:00
parent 1269d1c277
commit 380628650e
3 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
deps/graph-parser/src/logseq/graph_parser/exporter.cljs vendored
View File

@@ -75,14 +75,16 @@
{:db/ident db-ident}
(let [m
(if (:block/namespace class-block)
;; Give namespaced tags a unique ident so they don't conflict with other tags
(-> (db-class/build-new-class db {:block/title (build-class-ident-name class-name)})
;; Give namespaced tags a unique ident so they don't conflict with other tags
(-> (db-class/build-new-class db {:block/title (build-class-ident-name class-name)
:block/tags (:block/tags class-block)})
(merge {:block/title class-name
:block/name (common-util/page-name-sanity-lc class-name)})
(build-new-namespace-page))
(db-class/build-new-class db
{:block/title class-name
:block/name (common-util/page-name-sanity-lc class-name)}))]
(assoc {:block/title class-name
:block/name (common-util/page-name-sanity-lc class-name)}
:block/tags (:block/tags class-block))))]
(swap! all-idents assoc ident (:db/ident m))
(with-meta m {:new-class? true}))))))
@@ -704,8 +706,9 @@
(seq classes-from-properties)
;; Add a map of {:block.temp/new-class TAG} to be processed later
(update :block/tags
(fnil into [])
(map #(hash-map :block.temp/new-class %) classes-from-properties)))
(fn [tags]
(let [tags' (if (sequential? tags) tags (set tags))]
(into tags' (map #(hash-map :block.temp/new-class %) classes-from-properties))))))
:properties-tx pvalues-tx})
{:block block :properties-tx []})
(update :block dissoc :block/properties :block/properties-text-values :block/properties-order :block/invalid-properties)))