fix: page-add-property!

This commit is contained in:
Tienson Qin
2021-05-03 22:37:26 +08:00
parent df87d047dc
commit b19b373b63
8 changed files with 113 additions and 141 deletions

View File

@@ -279,7 +279,7 @@
[{:block/keys [content format parent page] :as block}]
(let [ast (mldoc/->edn (string/trim content) (mldoc/default-config format))
first-elem-type (first (ffirst ast))
properties? (= "Property_Drawer" first-elem-type)
properties? (contains? #{"Property_Drawer" "Properties"} first-elem-type)
top-level? (= parent page)
markdown-heading? (and (= format :markdown)
(= "Heading" first-elem-type))