json.clj

(defn json-seq
  [xs]
  (apply str (interpose "," (map json-str xs))))

(defn json-composite
  [l r xs]
  (str l (json-seq xs) r))

(defmulti json-str class)

(defmethod json-str String [x]
  (pr-str x))

(defmethod json-str clojure.lang.APersistentMap [x]
  (json-composite "{" "}" x))

(defmethod json-str clojure.lang.APersistentVector [x]
  (json-composite "[" "]" x))

(defmethod json-str java.lang.Number [n]
  (pr-str n))

(defmethod json-str clojure.lang.Named [x]
  (json-str (name x)))

(defmethod json-str clojure.lang.MapEntry [x]
  (str (json-str (key x)) ":" (json-str (val x))))