fix: hide empty blocks

This commit is contained in:
Tienson Qin
2021-12-11 13:27:28 +08:00
parent eb24a534ec
commit ae89f9970b

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]