refactor: Use db-after in fix-page-tags

Use the immutable db-after value for reads in `fix-page-tags` instead of the mutable conn.
This commit is contained in:
rcmerci
2025-08-27 02:24:22 +08:00
parent 834afb9f03
commit 8405b24f8b

View File

@@ -137,10 +137,10 @@
(defn- fix-page-tags
"Add missing attributes and remove #Page when inserting or updating block/title with inline tags"
[conn {:keys [db-after tx-data tx-meta]}]
[{:keys [db-after tx-data tx-meta]}]
(when-not (:rtc-op? tx-meta)
(let [page-tag (d/entity @conn :logseq.class/Page)
tag (d/entity @conn :logseq.class/Tag)]
(let [page-tag (d/entity db-after :logseq.class/Page)
tag (d/entity db-after :logseq.class/Tag)]
(assert page-tag "Page tag doesn't exist")
(->>
(keep
@@ -330,7 +330,7 @@
(defn- compute-extra-tx-data
[repo conn tx-report]
(let [{:keys [db-before db-after tx-data tx-meta]} tx-report
fix-page-tags-tx-data (fix-page-tags conn tx-report)
fix-page-tags-tx-data (fix-page-tags tx-report)
toggle-page-and-block-tx-data (toggle-page-and-block conn tx-report)
display-blocks-tx-data (add-missing-properties-to-typed-display-blocks db-after tx-data)
commands-tx (when-not (or (:undo? tx-meta) (:redo? tx-meta) (:rtc-tx? tx-meta))