notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Don't add hyphens to upper-case strings

Browse Source
This commit is contained in:
oakes
2014-06-30 12:31:55 -04:00
parent bdf232d1c8
commit 564eb78241
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
doclet/src/clojure/play_clj_doclet/core.clj
View File

@@ -13,9 +13,16 @@
(def classes (-> "classes.edn" io/resource slurp edn/read-string)) (def classes (-> "classes.edn" io/resource slurp edn/read-string))
(defn split-string
[s]
(if (= s (string/upper-case s))
[s]
(string/split s #"(?=[A-Z])")))
(defn camel->keyword (defn camel->keyword
[s] [s]
(->> (string/split (string/replace s "_" "-") #"(?=[A-Z])") (->> (string/replace s "_" "-")
split-string
(map string/lower-case) (map string/lower-case)
(string/join "-") (string/join "-")
keyword)) keyword))