clojure-snippets.clj

(defn capitalize [#^String s]
    "capitalizes String s"
    (if (and s (not (zero? (count s))))
        (apply str (conj (rest s) (Character/toUpperCase (.charAt s 0))))
        s))

(defn trim [s]
    "trims leading and trailing whitespace in the String s"
    (let [trim-leading
        (fn [s]
            (apply str (drop-while #(Character/isWhitespace %) s)))
          trim-trailing
        (fn [s]
            (let [reverse-str #(apply str (reverse %))]
                (reverse-str (trim-leading (reverse-str s)))))]
        (trim-trailing (trim-leading s))))


(defn all-interfaces [#^Class cls]
    "returns a set of all interfaces implemented by class cls"
    (let [interfaces (.getInterfaces cls)]
        (set (apply concat interfaces
            (map all-interfaces interfaces))))