fix: heading style in single block

This commit is contained in:
Peng Xiao
2022-08-20 11:22:03 +08:00
parent 45e04e952b
commit 9382750dc2
2 changed files with 4 additions and 3 deletions

View File

@@ -70,13 +70,14 @@ and handles unexpected failure."
(let [ast (->> (format/to-edn content format (gp-mldoc/default-config format))
(map first))
title (when (gp-block/heading-block? (first ast))
(:title (second (first ast))))
(second (first ast)))
body (vec (if title (rest ast) ast))
body (drop-while gp-property/properties-ast? body)
result (cond->
(if (seq body) {:block/body body} {})
title
(assoc :block/title title))]
(assoc :block/title (:title title)
:block/heading-level (:size title)))]
(state/add-block-ast-cache! block-uuid content result)
result))))))