This commit is contained in:
Peng Xiao
2022-09-29 15:11:06 +08:00
parent 76a7a9c526
commit 48d4b657dc
3 changed files with 3 additions and 10 deletions

View File

@@ -30,3 +30,5 @@ logseq.graph-parser.util.page-ref/page-ref-re
logseq.graph-parser.property/->block-content
;; API
logseq.graph-parser.property/property-value-from-content
;; API
logseq.graph-parser.whiteboard/page-block->tldr-page

View File

@@ -20,14 +20,6 @@
(vector? block)
(= "Heading" (first block))))
(defn whiteboard-properties?
[properties]
(and properties
(or (#{:whiteboard-shape :whiteboard-page} (:ls-type properties))
;; whiteboard page will have the following properties. We use them as a hint
(and (:assets properties)
(:bindings properties)))))
(defn get-tag
[block]
(when-let [tag-value (and (vector? block)

View File

@@ -1355,8 +1355,7 @@
:where
[_ :block/properties ?p]]
(conn/get-db))
properties (remove (fn [m] (or (empty? m)
(gp-block/whiteboard-properties? m))) properties)]
properties (remove (fn [m] (empty? m)) properties)]
(->> (map keys properties)
(apply concat)
distinct