enhance: support built-in property imports. part of LOG-2985

:query-properties and :query-sort-by need translating. Don't
override block/schema of built-in properties. Also display
property closed values in block data cmd
This commit is contained in:
Gabriel Horner
2024-02-15 12:25:47 -05:00
parent edb4cd1df4
commit 18d3c87016
2 changed files with 33 additions and 30 deletions

View File

@@ -19,16 +19,18 @@
result (cond-> result*
(and (seq (:block/properties result*)) (config/db-based-graph? (state/get-current-repo)))
(assoc :block.debug/properties
(-> (:block/properties result*)
(update-keys db-pu/get-property-name)
(update-vals (fn [v]
(cond
(and (set? v) (uuid? (first v)))
(set (map db-pu/get-property-name v))
(uuid? v)
(db-pu/get-property-name v)
:else
v)))))
(->> (update-keys (:block/properties result*) db-pu/get-property-name)
(map (fn [[k v]]
[k
(cond
(and (set? v) (uuid? (first v)))
(set (map db-pu/get-property-name v))
(uuid? v)
(or (db-pu/get-property-name v)
(get-in (db/entity [:block/uuid v]) [:block/schema :value]))
:else
v)]))
(into {})))
(seq (:block/refs result*))
(assoc :block.debug/refs
(mapv #(or (:block/original-name (db/entity (:db/id %))) %) (:block/refs result*))))