mirror of https://github.com/logseq/logseq
fix: graph-parser lint
parent
1dbdb16765
commit
602b236a4c
|
@ -1,8 +1,7 @@
|
|||
(ns logseq.graph-parser.whiteboard
|
||||
"Whiteboard related parser utilities"
|
||||
(:require [logseq.db.frontend.property.util :as db-property-util]
|
||||
[logseq.db.sqlite.util :as sqlite-util]
|
||||
[datascript.core :as d]))
|
||||
[logseq.db.sqlite.util :as sqlite-util]))
|
||||
|
||||
(defn block->shape [block]
|
||||
(get-in block [:block/properties :logseq.tldraw.shape]))
|
||||
|
@ -80,7 +79,7 @@
|
|||
(when (nil? (:block/format block)) {:block/format :markdown}) ;; TODO: read from config
|
||||
{:block/page page-id})))
|
||||
|
||||
(defn shape->block [repo db shape page-id]
|
||||
(defn shape->block [repo shape page-id]
|
||||
(let [block-uuid (if (uuid? (:id shape)) (:id shape) (uuid (:id shape)))
|
||||
properties {(db-property-util/get-pid repo :logseq.property/ls-type) :whiteboard-shape
|
||||
(db-property-util/get-pid repo :logseq.property.tldraw/shape) shape}
|
||||
|
|
|
@ -1,7 +1,6 @@
|
|||
(ns logseq.graph-parser.extract-test
|
||||
(:require [cljs.test :refer [deftest is are]]
|
||||
[logseq.graph-parser.extract :as extract]
|
||||
[clojure.pprint :as pprint]
|
||||
[datascript.core :as d]
|
||||
[logseq.db.frontend.schema :as db-schema]))
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@
|
|||
|
||||
(defn- shape->block [shape page-id]
|
||||
(let [repo (state/get-current-repo)]
|
||||
(gp-whiteboard/shape->block repo (db/get-db repo) shape page-id)))
|
||||
(gp-whiteboard/shape->block repo shape page-id)))
|
||||
|
||||
(defn- build-shapes
|
||||
[page-block blocks]
|
||||
|
|
|
@ -358,7 +358,7 @@
|
|||
(get properties* shape-property-id))]
|
||||
(assert (some? page-name) local-parent)
|
||||
(assert (some? shape) properties*)
|
||||
(transact-db! :upsert-whiteboard-block conn [(gp-whiteboard/shape->block repo db shape page-name)])))))
|
||||
(transact-db! :upsert-whiteboard-block conn [(gp-whiteboard/shape->block repo shape page-name)])))))
|
||||
|
||||
(defn- need-update-block?
|
||||
[conn block-uuid op-value]
|
||||
|
|
Loading…
Reference in New Issue