clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-02 18:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix ns property creation

Browse Source
This commit is contained in:
Weihua Lu
2021-07-27 15:35:44 +08:00
parent 21cc484fe2
commit 19fb06d52b
3 changed files with 53 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
src/main/frontend/handler/editor.cljs
View File

@@ -690,32 +690,21 @@
(when (db/page-empty? (state/get-current-repo) (:db/id page))
(api-insert-new-block! "" {:page page-name})))))
(defn page-properties-block
[page format properties]
(let [content (property/insert-properties format "" properties)]
{:block/pre-block? true
:block/uuid (db/new-block-id)
:block/properties properties
:block/left page
:block/format format
:block/content content
:block/parent page
:block/unordered true
:block/page page}))
(defn default-properties-block
[title format page]
(let [properties (common-handler/get-page-default-properties title)
content (property/build-properties-str format properties)]
{:block/pre-block? true
:block/uuid (db/new-block-id)
:block/properties properties
:block/left page
:block/format format
:block/content content
:block/parent page
:block/unordered true
:block/page page}))
([title format page]
(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)]
{:block/pre-block? true
:block/uuid (db/new-block-id)
:block/properties (merge p properties)
:block/left page
:block/format format
:block/content content
:block/parent page
:block/unordered true
:block/page page})))
(defn add-default-title-property-if-needed!
[page-name]