fix: pagination blocks

This commit is contained in:
Tienson Qin
2023-06-01 00:05:19 +08:00
parent b008503e40
commit 997da82b50
5 changed files with 34 additions and 128 deletions

View File

@@ -61,7 +61,11 @@
option (cond-> {:limit db-model/step-loading-blocks}
block?
(assoc :scoped-block-id db-id))
more-data (->> (db-model/get-paginated-blocks-no-cache db start-id option)
query-result (react/get-query-cached-result query-k)
start-id' (or
(when query-result (:db/id (last @query-result)))
start-id)
more-data (->> (db-model/get-paginated-blocks-no-cache db start-id' option)
(map #(db/pull (:db/id %))))]
(react/swap-new-result! query-k
(fn [result]
@@ -319,4 +323,4 @@
own-order-list-index (some->> own-order-list-type (get-idx-of-order-list-block block))]
(assoc config :own-order-list-type own-order-list-type
:own-order-list-index own-order-list-index
:own-order-number-list? (= own-order-list-type "number"))))
:own-order-number-list? (= own-order-list-type "number"))))