race car go vroom

quick-pr-str.clj

(defn quick-pr-str
  ([data]
   (let [acc (StringBuilder.)]
     (quick-pr-str acc data)
     (.toString acc)))
  ([^StringBuilder acc data]
   (cond
     (string? data)
     (do
       (.append acc \")
       (.append acc ^String data)
       (.append acc \"))
     (map? data)
     (do
       (.append acc \{)
       (doseq [^MapEntry kv data]
         (quick-pr-str acc (.key kv))
         (.append acc \space)
         (quick-pr-str acc (.val kv))
         (.append acc \space))
       (.append acc \}))
     (vector? data)
     (do
       (.append acc \[)
       (doseq [v data]
         (quick-pr-str acc v)
         (.append acc \space))
       (.append acc \]))
     (set? data)
     (do
       (.append acc "#{")
       (doseq [v data]
         (quick-pr-str acc v)
         (.append acc \space))
       (.append acc \}))
     (seq? data)
     (do
       (.append acc \()
       (doseq [v data]
         (quick-pr-str acc v)
         (.append acc \space))
       (.append acc \)))
     (integer? data)
     (.append acc ^Integer data)
     (float? data)
     (.append acc ^Float data)
     (keyword? data)
     (.append acc ^String (str data))
     :else
     (.append acc data))))