page property with title

This commit is contained in:
Weihua Lu
2021-07-27 19:08:32 +08:00
parent 19fb06d52b
commit 0825e8ea59
2 changed files with 11 additions and 4 deletions

View File

@@ -695,10 +695,11 @@
(default-properties-block title format page {}))
([title format page properties]
(let [p (common-handler/get-page-default-properties title)
content (property/build-properties-str format properties)]
ps (merge p properties)
content (property/insert-properties format "" ps)]
{:block/pre-block? true
:block/uuid (db/new-block-id)
:block/properties (merge p properties)
:block/properties ps
:block/left page
:block/format format
:block/content content