clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-02 18:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix(dev): debug edn of schema graph had duplicated data in :block/properties

Browse Source
This commit is contained in:
Gabriel Horner
2025-01-21 14:58:41 -05:00
parent 455ccec296
commit 5e558e902a
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
scripts/src/logseq/tasks/db_graph/create_graph_with_schema_org.cljs
View File

@@ -370,19 +370,19 @@
{:block/refs [:block/title]}]) ...]
:in $
:where [?b :db/ident ?ident]]
db))]
db))
top-level-properties [:logseq.property/type :logseq.property.class/properties :logseq.property/classes
:logseq.property/parent :block/tags]
debug-attributes (into [:block/name :block/title :db/cardinality :db/ident :block/refs]
top-level-properties)]
(fs/writeFileSync "schema-org.edn"
(pr-str
(->> ents
(map (fn [m]
(let [props (->> (db-property/properties m)
(into {}))]
(cond-> (select-keys m [:block/name :block/tags :block/title :logseq.property/type :db/cardinality :db/ident
:logseq.property.class/properties :logseq.property/parent
:db/cardinality :logseq.property/classes :block/refs])
(let [props (apply dissoc (db-property/properties m) top-level-properties)]
(cond-> (select-keys m debug-attributes)
(seq props)
(assoc :block/properties (-> (update-keys props name)
(dissoc "tags")
(update-vals (fn [v]
(if (:db/id v)
(db-property/property-value-content (d/entity db (:db/id v)))