fix: tags

This commit is contained in:
Tienson Qin
2025-10-28 15:41:05 +08:00
parent 518076d835
commit 5b35a9ee49

View File

@@ -242,12 +242,19 @@
;; Notice: should check `page?` for block from the current db
(if (ldb/page? (d/entity db (:db/id block)))
block
(let [page-class? (fn [t]
(let [tags' (cond
(qualified-keyword? tags)
[(d/entity db tags)]
(every? qualified-keyword? tags)
(map #(d/entity db %) tags)
:else
tags)
page-class? (fn [t]
(and (map? t) (contains? db-class/page-classes
(or (:db/ident t)
(when-let [id (:block/uuid t)]
(:db/ident (d/entity db [:block/uuid id])))))))
page-classes (filter page-class? tags)]
page-classes (filter page-class? tags')]
(if (seq page-classes)
(-> block
(update :block/tags