wip: property UX

This commit is contained in:
Tienson Qin
2023-06-30 12:32:43 +08:00
parent 271b074673
commit 0c0bad073a
4 changed files with 159 additions and 165 deletions

View File

@@ -31,7 +31,9 @@
(defn properties-hidden?
[properties]
(and (seq properties)
(let [ks (map (comp keyword string/lower-case name) (keys properties))
(let [ks (if (config/db-based-graph? (state/get-current-repo))
(map #(:block/name (db/entity [:block/uuid %])) (keys properties))
(map (comp keyword string/lower-case name) (keys properties)))
hidden-properties-set (hidden-properties)]
(every? hidden-properties-set ks))))
@@ -462,4 +464,4 @@
(if (seq properties-order)
(keep (fn [k] (when (contains? properties k) [k (get properties k)]))
(distinct properties-order))
properties*)))
properties*)))