fix: remove some logging

pull/6345/head
Peng Xiao 2022-08-06 10:40:09 +08:00
parent c8075a7ee0
commit 37f0893b01
2 changed files with 0 additions and 3 deletions

View File

@ -220,7 +220,6 @@
- it will only contain a single page (for now). The page properties contains 'bindings' etc - it will only contain a single page (for now). The page properties contains 'bindings' etc
- blocks will be adapted to tldraw shapes. All blocks's parent is the given page." - blocks will be adapted to tldraw shapes. All blocks's parent is the given page."
[file content {:keys [verbose] :or {verbose true} :as options}] [file content {:keys [verbose] :or {verbose true} :as options}]
(println "extract-whiteboard-edn Parsing start: " file)
(let [_ (when verbose (println "Parsing start: " file)) (let [_ (when verbose (println "Parsing start: " file))
{:keys [pages blocks]} (gp-util/safe-read-string content) {:keys [pages blocks]} (gp-util/safe-read-string content)
page-block (first pages) page-block (first pages)

View File

@ -93,9 +93,7 @@
(not (or (block-ids (:block/uuid block)) (not (or (block-ids (:block/uuid block))
(block-ids (:block/uuid (:block/parent block)))))) (block-ids (:block/uuid (:block/parent block))))))
existing-blocks) existing-blocks)
_ (util/pprint delete-blocks)
delete-blocks-tx (mapv (fn [s] [:db/retractEntity (:db/id s)]) delete-blocks)] delete-blocks-tx (mapv (fn [s] [:db/retractEntity (:db/id s)]) delete-blocks)]
(util/pprint delete-blocks-tx)
(concat [page-block] blocks delete-blocks-tx))) (concat [page-block] blocks delete-blocks-tx)))
(defn- get-whiteboard-clj [page-name] (defn- get-whiteboard-clj [page-name]