fix: don't allow spaces in property keys

This commit is contained in:
Tienson Qin
2021-03-27 12:22:22 +08:00
parent 9e4892690d
commit 4bf475fb04

View File

@@ -171,7 +171,8 @@
(distinct))
properties (->> properties
(medley/map-kv (fn [k v]
(let [v (string/trim v)]
(let [v (string/trim v)
k (string/replace k " " "_")]
(cond
(and (= "\"" (first v) (last v))) ; wrapped in ""
[(string/lower-case k) (string/trim (subs v 1 (dec (count v))))]