util.clj

(ns
    #^{:doc "Utilities"}
    gh.util
  (:import java.security.MessageDigest))

(defn digest
  "Calculates a digest with the given algorithm"
  ([str] (digest str "SHA1"))
  ([str dig]
     (apply vector (.digest (MessageDigest/getInstance dig) (.getBytes str)))))

(defn vec-to-str
  "Converts a vector to a string representation"
  [vec]
  (apply str (map #(format "%02x" (bit-and 0xff %)) vec)))