Tienson Qin 4 лет назад
Родитель
Сommit
eb24a534ec
1 измененных файлов с 12 добавлено и 11 удалено
  1. 12 11
      src/main/frontend/format/block.cljs

+ 12 - 11
src/main/frontend/format/block.cljs

@@ -728,17 +728,18 @@
                                   (:block/pre-block? block)
                                   (:block/pre-block? block)
                                   (:block/content block)))))
                                   (:block/content block)))))
   ([format pre-block? content]
   ([format pre-block? 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)))))
+   (when 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))))))
 
 
 (defn macro-subs
 (defn macro-subs
   [macro-content arguments]
   [macro-content arguments]