fix: update schema and script to use new attribute

pull/11055/head
Gabriel Horner 2024-03-26 12:20:41 -04:00
parent 76ebf19364
commit c5f72221ea
2 changed files with 3 additions and 3 deletions

View File

@ -123,7 +123,7 @@
(vec
(concat
[:map
[:block/namespace {:optional true} :int]
[:class/parent {:optional true} :int]
[:db/ident {:optional true} logseq-ident]
[:block/schema
{:optional true}

View File

@ -75,7 +75,7 @@
(class-m "rdfs:comment")
(assoc :description (get-comment-string (class-m "rdfs:comment") renamed-pages)))}
parent-class
(assoc :block/namespace {:db/id (get-class-db-id class-db-ids parent-class)})
(assoc :class/parent {:db/id (get-class-db-id class-db-ids parent-class)})
(seq properties)
(assoc :block/schema {:properties (mapv property-uuids properties)}))))
@ -252,7 +252,7 @@
pages (mapv #(hash-map :page
(->class-page % class-db-ids class-uuids class-to-properties property-uuids options))
select-classes)]
(assert (= ["Thing"] (keep #(when-not (:block/namespace (:page %))
(assert (= ["Thing"] (keep #(when-not (:class/parent (:page %))
(:block/original-name (:page %)))
pages))
"Thing is the only class that doesn't have a parent class")