fix: pre-block extract

This commit is contained in:
Tienson Qin
2021-05-04 10:23:38 +08:00
parent 7f095b573a
commit 578c21e898

View File

@@ -501,7 +501,8 @@
safe-blocks))))]
(let [first-block (first blocks)
first-block-start-pos (get-in first-block [:block/meta :start-pos])
blocks (if (seq @pre-block-body)
blocks (if (or (seq @pre-block-body)
(seq @pre-block-properties))
(cons
(merge
(let [content (utf8/substring encoded-content 0 first-block-start-pos)]