 
 
 
-;; DISPATCH MULTIMETHOD
+;;;;; CANONIZE MULTIMETHOD ;;;;;
 
 (defn- canonize-dispatch
   [value]

(canonize-element clojure.lang.Keyword :keyword)
(canonize-element clojure.lang.Symbol  :symbol)


(defmethod canonize clojure.lang.ISeq
  [s]

  "Produces text colored according to the active color scheme. This is mostly
  useful to clients which want to produce output which matches data printed by
  Puget, but which is not directly printed by the library. Note that this
  function still obeys the :print-color option."
  [element text]
  (let [codes (-> *options* :color-scheme (get element) seq)]
    (if (and (:print-color *options*) codes)
