fix: hide empty blocks

pull/3419/head
Tienson Qin 2021-12-11 13:27:28 +08:00
parent eb24a534ec
commit ae89f9970b
1 changed files with 11 additions and 11 deletions

View File

@ -728,18 +728,18 @@
(:block/pre-block? block)
(:block/content block)))))
([format pre-block? content]
(when content
(when-not (string/blank? content)
(let [content (if pre-block? content
(str (config/get-block-pattern format) " " (string/triml content)))
content (property/remove-properties format content)
ast (->> (format/to-edn content format nil)
(map first))
title (when (heading-block? (first ast))
(:title (second (first ast))))]
(cond->
{:block/body (vec (if title (rest ast) ast))}
title
(assoc :block/title title))))))
(str (config/get-block-pattern format) " " (string/triml content)))
content (property/remove-properties format content)
ast (->> (format/to-edn content format nil)
(map first))
title (when (heading-block? (first ast))
(:title (second (first ast))))]
(cond->
{:block/body (vec (if title (rest ast) ast))}
title
(assoc :block/title title))))))
(defn macro-subs
[macro-content arguments]