clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-02-01 22:47:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhance(apis): simplify tag resolution and enhance tag handling functions

Browse Source
This commit is contained in:
charlie
2026-01-01 18:36:47 +08:00
parent 5f42c51c3e
commit 44468dd200
1 changed files with 43 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
src/main/logseq/api/db_based.cljs
View File

@@ -258,23 +258,27 @@
:logseq.property.class/extends
(:db/id extend))))
(defn- resolve-tag-eid [this class-uuid-or-ident-or-title]
(let [eid (if (number? class-uuid-or-ident-or-title)
class-uuid-or-ident-or-title
(let [title-or-ident (-> (if-not (string? class-uuid-or-ident-or-title)
(str class-uuid-or-ident-or-title)
class-uuid-or-ident-or-title)
(string/replace #"^:+" ""))]
(if (text/namespace-page? title-or-ident)
(keyword title-or-ident)
(if (util/uuid-string? title-or-ident)
(when-let [id (sdk-utils/uuid-or-throw-error title-or-ident)]
[:block/uuid id])
(keyword (api-block/resolve-class-prefix-for-db this) title-or-ident)))))]
eid))
(defn get-tag [class-uuid-or-ident-or-title]
(this-as this
(let [eid (if (number? class-uuid-or-ident-or-title)
class-uuid-or-ident-or-title
(let [title-or-ident (-> (if-not (string? class-uuid-or-ident-or-title)
(str class-uuid-or-ident-or-title)
class-uuid-or-ident-or-title)
(string/replace #"^:+" ""))]
(if (text/namespace-page? title-or-ident)
(keyword title-or-ident)
(if (util/uuid-string? title-or-ident)
(when-let [id (sdk-utils/uuid-or-throw-error title-or-ident)]
[:block/uuid id])
(keyword (api-block/resolve-class-prefix-for-db this) title-or-ident)))))
tag (db/entity eid)]
(when (ldb/class? tag)
(sdk-utils/result->js tag)))))
(let [eid (resolve-tag-eid this class-uuid-or-ident-or-title)
tag (db/entity eid)]
(when (ldb/class? tag)
(sdk-utils/result->js tag)))))
(defn get-tags-by-name [name]
(when-let [tags (some->> (entity-util/get-pages-by-name (db-conn/get-db) name)
@@ -304,25 +308,31 @@
(sdk-utils/result->js (db/get-case-page tag-id)))))
(defn add-block-tag [id-or-name tag-id]
(p/let [repo (state/get-current-repo)
tag (db-async/<get-block repo tag-id)
block (db-async/<get-block repo id-or-name)]
(when-not (ldb/class? tag)
(throw (ex-info (str "Not a tag: " tag-id)
{:tag tag})))
(when (and tag block)
(db-page-handler/add-tag repo (:db/id block) tag))))
(this-as this
(p/let [repo (state/get-current-repo)
block (db-async/<get-block repo id-or-name)
tag-eid (resolve-tag-eid this tag-id)
tag (or (db/entity tag-eid)
(db-async/<get-block repo tag-id))]
(when-not (ldb/class? tag)
(throw (ex-info (str "Not a tag: " tag-id)
{:tag (pr-str tag)})))
(when (and tag block)
(db-page-handler/add-tag repo (:db/id block) tag)))))
(defn remove-block-tag [id-or-name tag-id]
(p/let [repo (state/get-current-repo)
block (db-async/<get-block repo id-or-name)
tag (db-async/<get-block repo tag-id)]
(when-not (ldb/class? tag)
(throw (ex-info (str "Not a tag: " tag-id)
{:tag tag})))
(when (and block tag)
(db-property-handler/delete-property-value!
(:db/id block) :block/tags (:db/id tag)))))
(this-as this
(p/let [repo (state/get-current-repo)
block (db-async/<get-block repo id-or-name)
tag-eid (resolve-tag-eid this tag-id)
tag (or (db/entity tag-eid)
(db-async/<get-block repo tag-id))]
(when-not (ldb/class? tag)
(throw (ex-info (str "Not a tag: " tag-id)
{:tag tag})))
(when (and block tag)
(db-property-handler/delete-property-value!
(:db/id block) :block/tags (:db/id tag))))))
(defn set-block-icon
[block-id icon-type icon-name]
@@ -342,6 +352,7 @@
:id (if (= icon-type "emoji")
(:id (first (name->emoji icon-name)))
icon-name)})))
(defn remove-block-icon
[block-id]
(p/let [repo (state/get-current-repo)