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

fix: tags query

Browse Source
This commit is contained in:
Tienson Qin
2024-10-31 21:07:16 +08:00
parent 03b3291486
commit 144e415cf9
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -391,14 +391,14 @@
:rules [:has-page-property]})))
(defn- build-tags
[e]
[db-graph? 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)
{:query (list 'tags (if db-graph? '?b '?p) tags)
:rules [:tags]}))))
(defn- build-page-tags
@@ -546,7 +546,7 @@ Some bindings in this fn:
(build-page-property e env)
(= 'tags fe)
(build-tags e)
(build-tags (:db-graph? env) e)
(= 'page-tags fe)
(build-page-tags e)
@@ -738,6 +738,7 @@ Some bindings in this fn:
#(sort-by % (fn [m prop] (get-in m [:block/properties prop])))
identity)
transform-fn (comp sort-by' random-samples)]
(prn :debug :query query')
(query-react/react-query repo
{:query query'
:query-string query-string