mirror of https://github.com/logseq/logseq
fix: remove some logging
parent
c8075a7ee0
commit
37f0893b01
|
@ -220,7 +220,6 @@
|
|||
- 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."
|
||||
[file content {:keys [verbose] :or {verbose true} :as options}]
|
||||
(println "extract-whiteboard-edn Parsing start: " file)
|
||||
(let [_ (when verbose (println "Parsing start: " file))
|
||||
{:keys [pages blocks]} (gp-util/safe-read-string content)
|
||||
page-block (first pages)
|
||||
|
|
|
@ -93,9 +93,7 @@
|
|||
(not (or (block-ids (:block/uuid block))
|
||||
(block-ids (:block/uuid (:block/parent block))))))
|
||||
existing-blocks)
|
||||
_ (util/pprint 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)))
|
||||
|
||||
(defn- get-whiteboard-clj [page-name]
|
||||
|
|
Loading…
Reference in New Issue