Fix camel->keyword

This commit is contained in:
oakes
2014-06-30 12:18:01 -04:00
parent 04be0f1727
commit bdf232d1c8

View File

@@ -15,7 +15,7 @@
(defn camel->keyword (defn camel->keyword
[s] [s]
(->> (string/split (string/replace s "_" "-") #"(?<=[a-z])(?=[A-Z])") (->> (string/split (string/replace s "_" "-") #"(?=[A-Z])")
(map string/lower-case) (map string/lower-case)
(string/join "-") (string/join "-")
keyword)) keyword))