   Clojure value."
   ^String
   [value]
-  (binding [puget/*colored-output* false]
-    (str/trim (with-out-str (print-value value)))))
+  (let [opts (assoc render-opts :print-color false)]
+    (puget/pprint-str value opts)))
 
 
 (defn edn-blob




;; SERIALIZATION

(defn- print-value
  "Prints the canonical EDN representation for the given Clojure value."
  [value]
  (binding [puget/*strict-mode* true]
    (puget/pprint value {:width blob-width})))


(defn- edn-str




;;;;; DESERIALIZATION ;;;;;

(defn- counting-reader
  "Wraps the given input stream with a proxy which counts the bytes read
