|
@@ -222,11 +222,11 @@
|
|
|
(let [_ (when verbose (println "Parsing start: " file))
|
|
|
{:keys [pages blocks]} (gp-util/safe-read-string content)
|
|
|
blocks (map
|
|
|
- (fn [block]
|
|
|
- (-> block
|
|
|
- (gp-util/dissoc-in [:block/parent :block/name])
|
|
|
- (gp-util/dissoc-in [:block/left :block/name])))
|
|
|
- blocks)
|
|
|
+ (fn [block]
|
|
|
+ (-> block
|
|
|
+ (gp-util/dissoc-in [:block/parent :block/name])
|
|
|
+ (gp-util/dissoc-in [:block/left :block/name])))
|
|
|
+ blocks)
|
|
|
serialized-page (first pages)
|
|
|
;; whiteboard edn file should normally have valid :block/original-name, :block/name, :block/uuid
|
|
|
page-name (-> (or (:block/name serialized-page)
|