greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix: new whiteboard original name

pull/9617/head
Konstantinos Kaloutas 2023-06-07 18:52:43 +03:00 committed by Gabriel Horner
parent c6ae7b6ad4
commit a41bc3d9a1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/main/frontend/handler/whiteboard.cljs
View File

@ -187,6 +187,7 @@
(defn get-default-new-whiteboard-tx
[page-name id]
[#:block{:name (util/page-name-sanity-lc page-name),
:original-name page-name
:type "whiteboard",
:properties
{:ls-type :whiteboard-page,
@ -208,13 +209,13 @@
(create-new-whiteboard-page! nil))
([name]
(let [uuid (or (and name (parse-uuid name)) (d/squuid))
name (or name (str uuid))]
page-name (or name (str uuid))]
(db/transact! (get-default-new-whiteboard-tx name (str uuid)))
(let [entity (get-whiteboard-entity name)
(let [entity (get-whiteboard-entity page-name)
tx (assoc (select-keys entity [:db/id])
:block/uuid uuid)]
(db-utils/transact! [tx])
(let [page-entity (get-whiteboard-entity name)]
(let [page-entity (get-whiteboard-entity page-name)]
(when (and page-entity (nil? (:block/file page-entity)))
(outliner-file/sync-to-file page-entity)))))))