fix: property names and values search results

pull/11311/head
Gabriel Horner 2024-05-08 14:42:52 -04:00
parent 949d676f02
commit fe80ce371c
1 changed files with 6 additions and 5 deletions

View File

@ -202,15 +202,16 @@
(->> properties
(map
(fn [[k v]]
(let [values
(let [property (d/entity db k)
values
(->> (if (set? v) v #{v})
(map (fn [val]
(if (uuid? val)
(let [e (d/entity db [:block/uuid val])
(if (= :db.type/ref (:db/valueType property))
(let [e (d/entity db (:db/id val))
value (or
;; closed value
(property-value-when-closed e)
;; page
;; :page or :date properties
(:block/original-name e)
;; block generated by template
(and
@ -223,7 +224,7 @@
val)))
(remove string/blank?))]
(when (seq values)
(str (:block/original-name (d/entity db [:block/uuid k]))
(str (:block/original-name property)
": "
(string/join "; " values))))))
(remove nil?)