 (defn cprint-str
   "Pretty-prints a value to a colored string."
   ([value]
-   (cprint-str value default-opts))
+   (cprint-str value *options*))
   ([value opts]
    (-> value
        (cprint opts)


;; PRINT FUNCTIONS

(def ^:private default-opts
  "Default Puget printing options."
  {:width 80})


(defn pprint
  ([value]
   (pprint value default-opts))
  ([value opts]
   (fipp/pprint-document (canonize value) opts)))


(defn pprint-str
  "Pretty-print a value to a string."
  ([value]
   (pprint-str value default-opts))
  ([value opts]
   (-> value
       (pprint opts)

(defn cprint
  "Like pprint, but turns on colored output."
  ([value]
   (cprint value *options*))
  ([value opts]
   (with-color (pprint value opts))))

