clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-29 00:24:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhance: frontend consistently uses :db/ident

Browse Source 
for fetching built-in properties instead of :block/name
This commit is contained in:
Gabriel Horner
2024-03-27 20:35:11 -04:00
parent eecb510ccb
commit 9c5309da47
29 changed files with 101 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
src/main/frontend/handler/property/util.cljs
View File

@@ -4,28 +4,45 @@
compatible with file graphs"
(:require [frontend.state :as state]
[frontend.db :as db]
[datascript.core :as d]
[logseq.common.util :as common-util]
[logseq.db.sqlite.util :as sqlite-util]
[logseq.db.frontend.property :as db-property]))
(defn lookup
"Get the value of coll's (a map) `key`. For file and db graphs"
"Get the value of coll's (a map) by db-ident. For file and db graphs"
[coll key]
(let [repo (state/get-current-repo)
db (db/get-db repo)]
(db-property/lookup repo db coll key)))
(defn lookup-by-name
"Get the value of coll's (a map) by name. Only use this
for file graphs or for db graphs when user properties are involved"
[coll key]
(let [repo (state/get-current-repo)
db (db/get-db repo)
property-name (if (keyword? key)
(name key)
key)]
(if (sqlite-util/db-based-graph? repo)
(when-let [property (d/entity db [:block/name (common-util/page-name-sanity-lc property-name)])]
(get coll (:block/uuid property)))
(get coll key))))
(defn get-block-property-value
"Get the value of block's property `key`"
[block key]
"Get the value of a built-in block's property by its db-ident"
[block db-ident]
(let [repo (state/get-current-repo)
db (db/get-db repo)]
(db-property/get-block-property-value repo db block key)))
(db-property/get-block-property-value repo db block db-ident)))
(defn get-property
"Get a property given its unsanitized name"
[property-name]
(let [repo (state/get-current-repo)
db (db/get-db repo)]
(db-property/get-property db property-name)))
(d/entity db [:block/name (common-util/page-name-sanity-lc (name property-name))])))
;; TODO: move this to another ns
(defn get-page-uuid
@@ -42,10 +59,10 @@
(db-property/get-pid repo db db-ident)))
(defn block->shape [block]
(get-block-property-value block :logseq.tldraw.shape))
(get-block-property-value block :logseq.property.tldraw/shape))
(defn page-block->tldr-page [block]
(get-block-property-value block :logseq.tldraw.page))
(get-block-property-value block :logseq.property.tldraw/page))
(defn shape-block?
[block]