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

Show tags on global graph

pull/645/head
Tienson Qin 2020-08-26 16:38:09 +08:00
parent e1f8d2f06e
commit ef06150414
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
web/src/main/frontend/db.cljs
View File

@ -593,6 +593,16 @@
(get-conn repo) (get-conn repo)
tag-name)) tag-name))
(defn get-all-tagged-pages
[repo]
(d/q '[:find ?page-name ?tag
:where
[?page :page/tags ?e]
[?e :tag/name ?tag]
[?tag-page :page/name ?tag]
[?page :page/name ?page-name]]
(get-conn repo)))
(defn- remove-journal-files (defn- remove-journal-files
[files] [files]
(remove (remove
@ -1720,10 +1730,13 @@
current-page (:page/name (get-current-page))] current-page (:page/name (get-current-page))]
(when-let [repo (state/get-current-repo)] (when-let [repo (state/get-current-repo)]
(let [relation (get-pages-relation repo show-journal?) (let [relation (get-pages-relation repo show-journal?)
tagged-pages (get-all-tagged-pages repo)
empty-pages (get-empty-pages repo) empty-pages (get-empty-pages repo)
nodes (concat (seq relation) (if (seq empty-pages) nodes (concat (seq relation)
[empty-pages] (seq tagged-pages)
[])) (if (seq empty-pages)
[empty-pages]
[]))
edges (build-edges (remove edges (build-edges (remove
(fn [[_ to]] (fn [[_ to]]
(nil? to)) (nil? to))