fix: avoid changing recent pages position

This commit is contained in:
Tienson Qin
2025-03-27 21:11:02 +08:00
parent 591c5e391f
commit 2bb667fe91

View File

@@ -5,16 +5,15 @@
[logseq.db :as ldb]))
(defn add-page-to-recent!
[db-id click-from-recent?]
[db-id _click-from-recent?]
(assert db-id (number? db-id))
(when-not (:db/restoring? @state/state)
(when-let [page (db/entity db-id)]
(when-not (ldb/hidden? page)
(let [pages (state/get-recent-pages)]
(when (or (and click-from-recent? (not ((set pages) db-id)))
(not click-from-recent?))
(let [new-pages (vec (take 15 (distinct (cons db-id pages))))]
(state/set-recent-pages! new-pages))))))))
(let [pages (state/get-recent-pages)]
(when-not (or (ldb/hidden? page)
((set pages) db-id))
(let [new-pages (vec (take 15 (distinct (cons db-id pages))))]
(state/set-recent-pages! new-pages)))))))
(defn get-recent-pages
[]