ekimber

(defn camel-case-to-hyphenated
  "Converts a camel case string to a hyphenated string.
  E.g 'fooBar' -> 'foo-bar'"
  [s]
  (strs/join \- (drop-while empty?
                            (map #(if (re-matches #"[^a-z]{2,}" %) % (strs/lower-case %))
                                 (strs/split s #"(?=[A-Z][a-z])|(?<=[a-z])(?=[A-Z])")))))

ekimber

(join \- (map #(if (re-matches #"[^a-z]{2,}" %) % (lower-case %))(split "fooBarQUXXX" #"(?=[A-Z][a-z])|(?<=[a-z])(?=[A-Z])")))