diff --git a/deps/db/script/query.cljs b/deps/db/script/query.cljs index 2e20b69d5c..95393b904d 100644 --- a/deps/db/script/query.cljs +++ b/deps/db/script/query.cljs @@ -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)))))] diff --git a/src/main/frontend/components/property.cljs b/src/main/frontend/components/property.cljs index ea5bea016c..0e35be3097 100644 --- a/src/main/frontend/components/property.cljs +++ b/src/main/frontend/components/property.cljs @@ -398,7 +398,8 @@ (do (notification/show! "This is a private built-in property that can't be used." :error) (pv/exit-edit-property)) - (= :default (get-in property [:block/schema :type])) + (and (= :default (get-in property [:block/schema :type])) + (not (seq (get-in property [:block/schema :values])))) (do (pv/