|
@@ -348,9 +348,9 @@
|
|
|
|
|
|
(defn wrap-parse-block
|
|
|
[{:block/keys [content format left page uuid level pre-block?] :as block}]
|
|
|
- (let [block (merge
|
|
|
- (or (and (:db/id block) (db/pull (:db/id block))) block)
|
|
|
- (block/parse-title-and-body format pre-block? content))
|
|
|
+ (let [block (or (and (:db/id block) (db/pull (:db/id block))) block)
|
|
|
+ block (merge block
|
|
|
+ (block/parse-title-and-body format pre-block? (:block/content block)))
|
|
|
properties (:block/properties block)
|
|
|
real-content (:block/content block)
|
|
|
content (if (and (seq properties) real-content (not= real-content content))
|