fix: add pre-configured properties when creating a new db graph

This commit is contained in:
Tienson Qin
2023-08-02 01:49:23 +08:00
parent 791bd90d88
commit 15cb78fbf7
10 changed files with 108 additions and 39 deletions

View File

@@ -192,11 +192,11 @@
ref-block)
(let [text (:text content)
wrap-props #(if-let [stamp (:image content)]
(assoc % :hl-type "area" :hl-stamp stamp)
(assoc % :hl-type :area :hl-stamp stamp)
%)
properties (->>
(wrap-props
{:ls-type "annotation"
{:ls-type :annotation
:hl-page page
:hl-color (:color properties)
;; force custom uuid