 
 
 
-;; COLORING FUNCTIONS
+;;;;; COLORING FUNCTIONS ;;;;;
 
 (defn- color-doc
-  "Constructs a text doc, which may be colored if *colored-output* is true.
-  Element must be a key from the color-scheme map."
+  "Constructs a text doc, which may be colored if :print-color is true. Element
+  should be a key from the color-scheme map."
   [element text]
   (let [codes (-> *options* :color-scheme (get element) seq)]
     (if (and (:print-color *options*) codes)

      [order :as order])))


;; CONTROL VARS

; TODO: the dynamism here is probably overkill and makes var resolution much
; more expensive. The control functions below use alter-var-root anyway, so
; it's probably better to make these normal vars. Potentially, overrides can
; be supported better through an 'opts' map passed to the printer functions.

(def ^:dynamic *options*
  "Printer control options.




;;;;; PRINT FUNCTIONS ;;;;;

(defn pprint
  ([value]
