Don't add hyphens to upper-case strings

2014-06-30 12:31:55 -04:00
parent bdf232d1c8
commit 564eb78241
1 changed files with 8 additions and 1 deletions
--- a/doclet/src/clojure/play_clj_doclet/core.clj
+++ b/doclet/src/clojure/play_clj_doclet/core.clj
@@ -13,9 +13,16 @@

 (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
  [s]
-  (->> (string/split (string/replace s "_" "-") #"(?=[A-Z])")
+  (->> (string/replace s "_" "-")
+       split-string
       (map string/lower-case)
       (string/join "-")
       keyword))