clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-27 06:04:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: hidden columns

Browse Source
This commit is contained in:
Tienson Qin
2025-10-29 17:00:55 +08:00
parent de0d0cd17a
commit b7edc5cc92
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/main/frontend/worker/db/validate.cljs
View File

@@ -117,10 +117,11 @@
[:db/add (:e d) new-db-ident (:v d)]])))))))))
;; FIXME: :logseq.property.table/hidden-columns should be :property type to avoid issues like this
hidden-columns-tx-data (->> (d/datoms db :avet :logseq.property.table/hidden-columns)
(keep (fn [d]
(when (re-find #"^(\d)" (name (:v d)))
(let [new-value (keyword (namespace (:v d)) (string/replace-first (name (:v d)) #"^(\d)" "NUM-$1"))]
[:db/add (:e d) (:a d) new-value])))))
(mapcat (fn [d]
(when (re-find #"^(\d)" (name (:v d)))
(let [new-value (keyword (namespace (:v d)) (string/replace-first (name (:v d)) #"^(\d)" "NUM-$1"))]
[[:db/retract (:e d) (:a d) (:v d)]
[:db/add (:e d) (:a d) new-value]])))))
tx-data' (concat tx-data hidden-columns-tx-data)]
(when (seq tx-data')
(ldb/transact! conn tx-data'))))