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

use :compute-new-refs? to replace the last undo

Browse Source
This commit is contained in:
Konstantinos Kaloutas
2023-03-08 15:50:26 +02:00
committed by Gabriel Horner
parent acd41f71dd
commit e9da7e49f3
3 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -83,7 +83,7 @@
(util/time-ms))}))
(defn- compute-tx
[^js app ^js tl-page new-id-nonces db-id-nonces page-name transact?]
[^js app ^js tl-page new-id-nonces db-id-nonces page-name replace?]
(let [assets (js->clj-keywordize (.getCleanUpAssets app))
new-shapes (.-shapes tl-page)
shapes-index (map #(gobj/get % "id") new-shapes)
@@ -119,7 +119,8 @@
(map #(shape->block % page-name))
(map with-timestamps))
:delete-blocks deleted-shapes-tx
:metadata {:whiteboard/transact? transact?
:metadata {:whiteboard/transact? true
:replace? replace?
:data {:page-name page-name
:deleted-shapes deleted-shapes
:new-shapes created-shapes
@@ -139,7 +140,7 @@
(set (->> (model/get-whiteboard-id-nonces repo page-name)
(map #(update % :id str)))))
{:keys [page-block upserted-blocks delete-blocks metadata]}
(compute-tx app tl-page new-id-nonces db-id-nonces page-name (not replace?))
(compute-tx app tl-page new-id-nonces db-id-nonces page-name replace?)
tx-data (concat delete-blocks [page-block] upserted-blocks)
new-shapes (get-in metadata [:data :new-shapes])
metadata' (cond