Skip to content

Commit de0d0cd

Browse files
committed
fix: num prefixed properties in hidden-columns
1 parent 88d9b6e commit de0d0cd

File tree

1 file changed

+10
-3
lines changed

1 file changed

+10
-3
lines changed

src/main/frontend/worker/db/validate.cljs

Lines changed: 10 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -114,9 +114,16 @@
114114
(->> (d/datoms db :avet (:v d))
115115
(mapcat (fn [d]
116116
[[:db/retract (:e d) (:a d) (:v d)]
117-
[:db/add (:e d) new-db-ident (:v d)]])))))))))]
118-
(when (seq tx-data)
119-
(ldb/transact! conn tx-data))))
117+
[:db/add (:e d) new-db-ident (:v d)]])))))))))
118+
;; FIXME: :logseq.property.table/hidden-columns should be :property type to avoid issues like this
119+
hidden-columns-tx-data (->> (d/datoms db :avet :logseq.property.table/hidden-columns)
120+
(keep (fn [d]
121+
(when (re-find #"^(\d)" (name (:v d)))
122+
(let [new-value (keyword (namespace (:v d)) (string/replace-first (name (:v d)) #"^(\d)" "NUM-$1"))]
123+
[:db/add (:e d) (:a d) new-value])))))
124+
tx-data' (concat tx-data hidden-columns-tx-data)]
125+
(when (seq tx-data')
126+
(ldb/transact! conn tx-data'))))
120127

121128
(defn validate-db
122129
[conn]

0 commit comments

Comments
 (0)