Explorar o código

fix: fn get-all-properties

rcmerci %!s(int64=2) %!d(string=hai) anos
pai
achega
5fbcf70d32
Modificáronse 1 ficheiros con 7 adicións e 2 borrados
  1. 7 2
      src/main/frontend/db/model.cljs

+ 7 - 2
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