浏览代码

fix: trailing blocks disappear when moving

Tienson Qin 3 年之前
父节点
当前提交
d7cc6c4b29
共有 1 个文件被更改,包括 3 次插入2 次删除
  1. 3 2
      src/main/frontend/db/model.cljs

+ 3 - 2
src/main/frontend/db/model.cljs

@@ -715,8 +715,9 @@
         (let [start-page? (:block/name (db-utils/entity start-id))]
           (when-not start-page?
             (let [previous-blocks (take-while (fn [b] (not= start-id (:db/id b))) @result)
-                  limit (inc (max (- initial-blocks-length (count previous-blocks))
-                                  (count tx-block-ids)))
+                  limit (-> (max (- initial-blocks-length (count previous-blocks))
+                                 (count tx-block-ids))
+                            (+ 25))
                   more (get-paginated-blocks-no-cache current-db start-id {:limit limit
                                                                            :include-start? true
                                                                            :scoped-block-id scoped-block-id})]