|
|
@@ -79,8 +79,11 @@
|
|
|
first-elem-type (first (ffirst ast))
|
|
|
block-with-title? (mldoc/block-with-title? first-elem-type)
|
|
|
content' (str (config/get-block-pattern :markdown) (if block-with-title? " " "\n") content)
|
|
|
- block (merge block (block/parse-block (assoc block :block/content content')))]
|
|
|
- (update block :block/refs remove-non-existed-refs!)))
|
|
|
+ block' (merge block (block/parse-block (assoc block :block/content content')))
|
|
|
+ block' (if (seq (:block/properties block))
|
|
|
+ (update block' :block/properties (fn [m] (merge m (:block/properties block))))
|
|
|
+ block')]
|
|
|
+ (update block' :block/refs remove-non-existed-refs!)))
|
|
|
block (if (and left (not= (:block/left block) left)) (assoc block :block/left left) block)
|
|
|
result (-> block
|
|
|
(merge (if level {:block/level level} {}))
|