fix: closed :default values validate correctly

and values can be selected from UI. Also tweak query to expand
properties if available
This commit is contained in:
Gabriel Horner
2024-04-16 11:57:12 -04:00
parent 5833b84889
commit 0853940a34
3 changed files with 9 additions and 3 deletions

View File

@@ -29,7 +29,10 @@
conn (sqlite-db/open-db! dir db-name)
results (if ((set args) "-e")
(map #(when-let [ent (d/entity @conn (edn/read-string %))]
(into {:db/id (:db/id ent)} ent)) (drop 2 args))
(cond-> (into {:db/id (:db/id ent)} ent)
(seq (:block/properties ent))
(update :block/properties (fn [props] (map (fn [m] (into {} m)) props)))))
(drop 2 args))
;; assumes no :in are in queries
(let [query (into (edn/read-string query*) [:in '$ '%])]
(mapv first (d/q query @conn (rules/extract-rules rules/db-query-dsl-rules)))))]