fix: blocks disappear in long page when outdent

This commit is contained in:
Tienson Qin
2022-05-16 19:46:12 +08:00
parent 18f4c21dc9
commit 0d29421117
5 changed files with 39 additions and 25 deletions

View File

@@ -1708,7 +1708,8 @@
(let [blocks (get-selected-ordered-blocks)]
(when (seq blocks)
(outliner-tx/transact!
{:outliner-op :move-blocks}
{:outliner-op :move-blocks
:real-outliner-op :indent-outdent}
(outliner-core/indent-outdent-blocks! blocks (= direction :right))))))
(defn- get-link [format link label]
@@ -2033,7 +2034,8 @@
(when-not (parent-is-page? node)
(let [parent-node (tree/-get-parent node)]
(outliner-tx/transact!
{:outliner-op :move-blocks}
{:outliner-op :move-blocks
:real-outliner-op :indent-outdent}
(save-current-block!)
(outliner-core/move-blocks! [(:data node)] (:data parent-node) true)))))
@@ -2590,7 +2592,8 @@
(when block
(state/set-editor-last-pos! pos)
(outliner-tx/transact!
{:outliner-op :move-blocks}
{:outliner-op :move-blocks
:real-outliner-op :indent-outdent}
(save-current-block!)
(outliner-core/indent-outdent-blocks! [block] indent?)))
(state/set-editor-op! :nil)))