feat: displaying whiteboard text shape in outliner

This commit is contained in:
Peng Xiao
2022-07-22 14:47:57 +08:00
parent 4d42877f3d
commit 45798ba714
6 changed files with 15 additions and 11 deletions

View File

@@ -33,16 +33,11 @@
:pageId page-title}])))))
(defn- block->shape [block]
(let [properties (:block/properties block)
uuid (str (:block/uuid block))]
(merge properties
;; Use the block's id as the shape's id.
{:id uuid})))
(:block/properties block))
(defn- shape->block [shape page-name]
(let [properties shape
block {:block/uuid (uuid (:id properties))
:block/page {:block/name page-name}
(let [properties (assoc shape :ls-type :whiteboard-shape)
block {:block/page {:block/name page-name}
:block/properties properties}
additional-props (with-whiteboard-block-props shape)]
(merge block additional-props)))