From 5fbcf70d32cf7648bbc1fb77f1fcf22cd549d5a3 Mon Sep 17 00:00:00 2001 From: rcmerci Date: Tue, 27 Jun 2023 14:26:33 +0800 Subject: [PATCH] fix: fn get-all-properties --- src/main/frontend/db/model.cljs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/src/main/frontend/db/model.cljs b/src/main/frontend/db/model.cljs index 4cfb4c64eb..2670523d46 100644 --- a/src/main/frontend/db/model.cljs +++ b/src/main/frontend/db/model.cljs @@ -1175,15 +1175,20 @@ independent of format as format specific heading characters are stripped" (defn get-all-properties [] - (let [properties (d/q + (let [db (conn/get-db) + properties (d/q '[:find [?p ...] :where [_ :block/properties ?p]] - (conn/get-db)) + db) properties (remove (fn [m] (empty? m)) properties)] (->> (map keys properties) (apply concat) distinct + (map (fn [k] + (if (and (string? k) (util/uuid-string? k)) + (keyword (:block/name (d/entity db [:block/uuid (uuid k)]))) + k))) sort))) (defn- property-value-for-refs-and-text