                          (map canonize (rest s)))
                    (map canonize s))]
     [:group
-     (delimiter "(")
+     (color-doc :delimiter "(")
      [:align (interpose :line elements)]
-     (delimiter ")")]))
+     (color-doc :delimiter ")")]))
 
 
 (defmethod canonize clojure.lang.IPersistentVector
   [v]
   [:group
-   (delimiter "[")
+   (color-doc :delimiter "[")
    [:align (interpose :line (map canonize v))]
-   (delimiter "]")])
+   (color-doc :delimiter "]")])
 
 
 (defmethod canonize clojure.lang.IPersistentSet
   [s]
   (let [entries (sort data/total-order (seq s))]
     [:group
-     (delimiter "#{")
+     (color-doc :delimiter "#{")
      [:align (interpose :line (map canonize entries))]
-     (delimiter "}")]))
+     (color-doc :delimiter "}")]))
 
 
 (defn- canonize-map

                     (sort-by first data/total-order)
                     (map canonize-kv))]
    [:group
     (delimiter "{")
     [:align (interpose [:span "," :line] entries)]
     (delimiter "}")]))


(defmethod canonize clojure.lang.IPersistentMap

      text)))


(defn color-text
  "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 *colored-output* var."
  [element text]
  (let [codes (seq (*color-scheme* element))]
    (if (and *colored-output* codes)
      (str (ansi/esc codes) text (ansi/escape :none))
      text)))



