|
@@ -71,7 +71,7 @@
|
|
|
(assoc block :block/content content')))
|
|
(assoc block :block/content content')))
|
|
|
|
|
|
|
|
(defn wrap-parse-block
|
|
(defn wrap-parse-block
|
|
|
- [{:block/keys [content left level] :as block}]
|
|
|
|
|
|
|
+ [{:block/keys [content left level tags] :as block}]
|
|
|
(let [block (or (and (:db/id block) (db/pull (:db/id block))) block)
|
|
(let [block (or (and (:db/id block) (db/pull (:db/id block))) block)
|
|
|
block (if (string/blank? content)
|
|
block (if (string/blank? content)
|
|
|
block
|
|
block
|
|
@@ -98,7 +98,9 @@
|
|
|
(:block/tags result))
|
|
(:block/tags result))
|
|
|
(remove nil?))))
|
|
(remove nil?))))
|
|
|
;; Remove :block/tags built from mldoc
|
|
;; Remove :block/tags built from mldoc
|
|
|
- (dissoc :block/tags))))
|
|
|
|
|
|
|
+ (dissoc :block/tags)
|
|
|
|
|
+ ;; Add tags back
|
|
|
|
|
+ (assoc :block/tags tags))))
|
|
|
|
|
|
|
|
(defn save-file!
|
|
(defn save-file!
|
|
|
"This fn is the db version of file-handler/alter-file"
|
|
"This fn is the db version of file-handler/alter-file"
|