enhance: import built-in logseq.* props - part of LOG-2977

This commit is contained in:
Gabriel Horner
2024-02-15 15:01:01 -05:00
parent 18d3c87016
commit 0bba0a2ca9
3 changed files with 43 additions and 18 deletions

View File

@@ -55,13 +55,12 @@
(defn get-closed-property-values
[property-name]
(when-let [property (get-property property-name)]
(get-in property [:block/schema :values])))
(let [repo (state/get-current-repo)
db (db/get-db repo)]
(db-property/get-closed-property-values db property-name)))
(defn get-closed-value-entity-by-name
[property-name value-name]
(let [values (get-closed-property-values property-name)]
(some (fn [id]
(let [e (db/entity [:block/uuid id])]
(when (= (get-in e [:block/schema :value]) value-name)
e))) values)))
(let [repo (state/get-current-repo)
db (db/get-db repo)]
(db-property/get-closed-value-entity-by-name db property-name value-name)))