   ([value]
    (cprint value default-opts))
   ([value opts]
-   (binding [*colored-output* true]
-     (pprint value opts))))
+   (with-color (pprint value opts))))
 
 
 (defn cprint-str



(def ^:dynamic *colored-output*
  "Output ANSI colored output from print functions."
  false)



;; CONTROL VARS

(def ^:dynamic *strict-mode*
  "If true, throw an exception if there is no canonical EDN representation for
  a given value. This generally applies to any non-primitive value which does
  not extend puget.data/TaggedValue and is not a built-in collection."
  false)


