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

fix: page properties

Browse Source
This commit is contained in:
Tienson Qin
2021-05-03 12:58:21 +08:00
parent 7efac0dd6e
commit 515f782888
6 changed files with 34 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/main/frontend/handler/editor.cljs
View File

@@ -247,8 +247,8 @@
(defn- attach-page-properties-if-exists!
[block]
(if (and (:block/pre-block? block)
(= "Properties" (ffirst (:block/body block)))) ; page properties
(let [page-properties (second (first (:block/body block)))
(seq (:block/properties block)))
(let [page-properties (:block/properties block)
str->page (fn [n] {:block/name (string/lower-case n) :block/original-name n})
refs (->> page-properties
(filter (fn [[_ v]] (coll? v)))
@@ -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? (= "Properties" first-elem-type)
properties? (= "Property_Drawer" first-elem-type)
top-level? (= parent page)
markdown-heading? (and (= format :markdown)
(= "Heading" first-elem-type))