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: page-property queries for closed values

Browse Source 
Also update properties graph to demo all the page property equivalents
to block property examples
This commit is contained in:
Gabriel Horner
2024-03-09 00:16:54 -05:00
parent b1eeff0083
commit 15825bd2ea
2 changed files with 56 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -311,13 +311,17 @@
:rules [:priority]}))))
(defn- build-page-property
[e]
[e {:keys [db-graph?]}]
(let [[k v] (rest e)
k (string/replace (name k) "_" "-")]
(if (some? v)
(let [v' (parse-property-value (str v))
val (if (coll? v') (first v') v')]
{:query (list 'page-property '?p (->keyword-property k) val)
v'' (if (coll? v') (first v') v')
v''' (if-let [closed-value (and db-graph?
(db-property/get-closed-value-entity-by-name (conn/get-db) k v''))]
(:block/uuid closed-value)
v'')]
{:query (list 'page-property '?p (->keyword-property k) v''')
:rules [:page-property]})
{:query (list 'has-page-property '?p (->keyword-property k))
:rules [:has-page-property]})))
@@ -445,7 +449,7 @@ Some bindings in this fn:
(build-namespace e)
(= 'page-property fe)
(build-page-property e)
(build-page-property e env)
(= 'page-tags fe)
(build-page-tags e)