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

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


;; PRINT FUNCTIONS

(defn pprint
  ([value]
   (pprint value *options*))
  ([value opts]
   (let [doc (if-let [m (and (:print-meta opts) (meta value))]
               [:align [:span "^" (canonize m)] :line (canonize value)]
               (canonize value))]
     (fipp/pprint-document doc {:width (:width opts)}))))


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