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
|
- 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)
|
||||||
|
|
|
@ -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]
|
||||||
|
|
Loading…
Reference in New Issue