fix: check property value exists when creating :default value

experiment/tanstack-table
Tienson Qin 2024-05-28 18:10:46 +08:00
parent 1ee04446e9
commit e6280cd35c
1 changed files with 9 additions and 7 deletions

View File

@ -64,14 +64,16 @@
(defn <create-new-block!
[block property value & {:keys [edit-block?]
:or {edit-block? true}}]
(p/let [new-block-id (db/new-block-id)
_ (db-property-handler/create-property-text-block!
(:db/id block)
(:db/id property)
value
{:new-block-id new-block-id})]
(p/let [existing-value (get block (:db/ident property))
new-block-id (when-not existing-value (db/new-block-id))
_ (when-not existing-value
(db-property-handler/create-property-text-block!
(:db/id block)
(:db/id property)
value
{:new-block-id new-block-id}))]
(p/do!
(let [block (db/entity [:block/uuid new-block-id])]
(let [block (or existing-value (db/entity [:block/uuid new-block-id]))]
(when edit-block?
(editor-handler/edit-block! block :max {:container-id :unknown-container})))
(shui/dialog-close!))))