fix: also detect in a journal

Signed-off-by: Yue Yang <g1enyy0ung@gmail.com>
This commit is contained in:
Yue Yang
2022-03-23 13:58:17 +08:00
committed by Junyi Du
parent 0e8c90a424
commit c74e2ba390

View File

@@ -2723,7 +2723,6 @@
selected-start (util/get-selection-start input)
selected-end (util/get-selection-end input)
block (state/get-edit-block)
page (state/get-current-page)
repo (state/get-current-repo)]
(mark-last-input-time! repo)
(cond
@@ -2737,10 +2736,11 @@
(zero? current-pos)
(do
(util/stop e)
(when-not (and page
(let [left-id (:db/id (:block/left block))
page-id (:db/id (:block/page block))]
(= left-id page-id)))
;; not the top block in a page or journal
(when-not
(let [left-id (:db/id (:block/left block))
page-id (:db/id (:block/page block))]
(= left-id page-id))
(delete-block! repo false)))
(and (> current-pos 1)