greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix(recents): zoomed block uuid should not be added to recents

pull/10633/head
Andelf 2023-12-02 12:56:51 +08:00 committed by Tienson Qin
parent 871f58e96b
commit a81ec6e215
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/main/frontend/handler/recent.cljs
View File

@ -1,14 +1,20 @@
(ns frontend.handler.recent
"Fns related to recent pages feature"
(:require [frontend.db :as db]))
(:require [frontend.db :as db]
[frontend.db.model :as model]))
(defn add-page-to-recent!
[repo page click-from-recent?]
[repo page-name-or-block-uuid click-from-recent?]
(let [pages (or (db/get-key-value repo :recent/pages)
'())]
(when (or (and click-from-recent? (not ((set pages) page)))
'())
page-name (if (uuid? page-name-or-block-uuid)
(when-let [block (model/get-block-by-uuid page-name-or-block-uuid)]
(get-in block [:block/page :block/original-name]))
page-name-or-block-uuid)]
(when (or (and click-from-recent? (not ((set pages) page-name)))
(not click-from-recent?))
(let [new-pages (take 15 (distinct (cons page pages)))]
(let [new-pages (take 15 (distinct (cons page-name pages)))]
(db/set-key-value repo :recent/pages new-pages)))))
(defn update-or-add-renamed-page [repo old-page-name new-page-name]