fix: roam export

ofer1992 · Dec 8, 2022 · 4708e60 · 4708e60
1 parent 7a5310e
commit 4708e60
Showing 1 changed file with 9 additions and 8 deletions.
diff --git a/src/main/frontend/external/roam_export.cljs b/src/main/frontend/external/roam_export.cljs
@@ -33,14 +33,15 @@
      (into {}))))
 
 (defn update-content [content uuid->uid-map]
-  (let [uuids (keys uuid->uid-map)]
-    (reduce
-     (fn [acc uuid]
-       (if (str/includes? acc (str uuid))
-         (str/replace acc (str uuid) (get uuid->uid-map uuid))
-         acc))
-     content
-     uuids)))
+  (when content                         ; page block doesn't have content
+    (let [uuids (keys uuid->uid-map)]
+     (reduce
+      (fn [acc uuid]
+        (if (str/includes? acc (str uuid))
+          (str/replace acc (str uuid) (get uuid->uid-map uuid))
+          acc))
+      content
+      uuids))))
 
 (defn update-uid [{:block/keys [uuid content] :as b}
                   uuid->uid-map]