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

fix: priority filters for db graphs

Browse Source
This commit is contained in:
Gabriel Horner
2024-06-07 17:34:44 -04:00
parent 214eefbf67
commit 7f3e22c8eb
4 changed files with 85 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -324,14 +324,18 @@
:rules [:task]})))))
(defn- build-priority
[e]
[e {:keys [db-graph?]}]
(let [priorities (if (coll? (first (rest e)))
(first (rest e))
(rest e))]
(when (seq priorities)
(let [priorities (set (map (comp string/upper-case name) priorities))]
{:query (list 'priority '?b priorities)
:rules [:priority]}))))
(if db-graph?
(let [priorities (set (map (comp string/capitalize name) priorities))]
{:query (list 'priority '?b priorities)
:rules [:priority]})
(let [priorities (set (map (comp string/upper-case name) priorities))]
{:query (list 'priority '?b priorities)
:rules [:priority]})))))
(defn- build-page-property
[e {:keys [db-graph?]}]
@@ -459,7 +463,7 @@ Some bindings in this fn:
(build-task e env)
(= 'priority fe)
(build-priority e)
(build-priority e env)
(= 'sort-by fe)
(build-sort-by e sort-by)