clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-01 01:16:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhance: support tags in query dsl

Browse Source
This commit is contained in:
Tienson Qin
2024-10-09 17:03:56 +08:00
parent d6c6e10049
commit bb08621fea
5 changed files with 139 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/main/frontend/db/query_dsl.cljs
View File

@@ -351,6 +351,17 @@
{:query (list 'has-page-property '?p k')
:rules [:has-page-property]})))
(defn- build-tags
[e]
(let [tags (if (coll? (first (rest e)))
(first (rest e))
(rest e))
tags (map (comp string/lower-case name) tags)]
(when (seq tags)
(let [tags (set (map (comp page-ref/get-page-name! string/lower-case name) tags))]
{:query (list 'tags '?p tags)
:rules [:tags]}))))
(defn- build-page-tags
[e]
(let [tags (if (coll? (first (rest e)))
@@ -480,6 +491,9 @@ Some bindings in this fn:
(= 'page-property fe)
(build-page-property e env)
(= 'tags fe)
(build-tags e)
(= 'page-tags fe)
(build-page-tags e)