Encode and decode "binary" strings with Clojure

codec.clj

(use '[clojure.string :only [trim replace]]
     '[clojure.pprint :only [cl-format] :rename {cl-format format}])

(defn- unspace [s]
  (trim (replace s " " "")))

(defn decode [bitstring]
  "\"01100110 01101111 01101111\" -> \"foo\"

Whitespace in the input string is ignored."
  (->> (partition 8 (unspace bitstring))
       (map #(char (Integer/parseInt (apply str %) 2)))
       (apply str)
       (trim)))

(defn encode [s]
  "\"foo\" -> \"01100110 01101111 01101111\""
  (trim (format nil "~{~8,'0b ~}" (map #(int %) s))))

I'll look in to creating a lib thanks for this gist