mirror of
https://github.com/logseq/logseq.git
synced 2026-05-03 10:26:35 +00:00
1f0e22275d
- Added to CI now that it passes - Added no-doc for docstrings that don't add any more than what's in the ns name or for ones where I didn't know the ns that well
22 lines
918 B
Clojure
22 lines
918 B
Clojure
(ns frontend.handler.recent
|
|
"Fns related to recent pages feature"
|
|
(:require [frontend.db :as db]))
|
|
|
|
(defn add-page-to-recent!
|
|
[repo page click-from-recent?]
|
|
(let [pages (or (db/get-key-value repo :recent/pages)
|
|
'())]
|
|
(when (or (and click-from-recent? (not ((set pages) page)))
|
|
(not click-from-recent?))
|
|
(let [new-pages (take 15 (distinct (cons page pages)))]
|
|
(db/set-key-value repo :recent/pages new-pages)))))
|
|
|
|
(defn update-or-add-renamed-page [repo old-page-name new-page-name]
|
|
(let [pages (or (db/get-key-value repo :recent/pages)
|
|
'())
|
|
updated-pages (replace {old-page-name new-page-name} pages)
|
|
updated-pages* (if (contains? (set updated-pages) new-page-name)
|
|
updated-pages
|
|
(cons new-page-name updated-pages))]
|
|
(db/set-key-value repo :recent/pages updated-pages*)))
|