fix: roam export

pull/7641/head
Tienson Qin 2022-12-08 21:15:47 +08:00
parent 7a5310eb5d
commit 4708e6067d
1 changed files with 9 additions and 8 deletions

View File

@ -33,6 +33,7 @@
(into {})))) (into {}))))
(defn update-content [content uuid->uid-map] (defn update-content [content uuid->uid-map]
(when content ; page block doesn't have content
(let [uuids (keys uuid->uid-map)] (let [uuids (keys uuid->uid-map)]
(reduce (reduce
(fn [acc uuid] (fn [acc uuid]
@ -40,7 +41,7 @@
(str/replace acc (str uuid) (get uuid->uid-map uuid)) (str/replace acc (str uuid) (get uuid->uid-map uuid))
acc)) acc))
content content
uuids))) uuids))))
(defn update-uid [{:block/keys [uuid content] :as b} (defn update-uid [{:block/keys [uuid content] :as b}
uuid->uid-map] uuid->uid-map]