clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-29 00:24:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

perfer to use get-page instead of get-first-page-by-name

Browse Source
This commit is contained in:
Tienson Qin
2024-04-03 18:12:03 +08:00
parent 5f08e17a85
commit c018f1517d
21 changed files with 43 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/main/frontend/handler/graph.cljs
View File

@@ -133,7 +133,7 @@
[page theme show-journal]
(let [dark? (= "dark" theme)]
(when-let [repo (state/get-current-repo)]
(let [page-entity (db/entity (ldb/get-first-page-by-name (db/get-db) page))
(let [page-entity (db/entity page)
page-id (:db/id page-entity)
tags (if (config/db-based-graph? repo)
(set (map #(:block/name (db/entity repo (:db/id %)))
@@ -156,7 +156,7 @@
(set))
other-pages-links (mapcat
(fn [page]
(let [page-id (ldb/get-first-page-by-name (db/get-db) page)
(let [page-id (:db/id (db/get-page page))
ref-pages (-> (map first (db/get-page-referenced-pages repo page-id))
(set)
(set/intersection other-pages))