 (defn zcolor-map
   "Look up the thing in the zprint-color-map.  Accepts keywords or
   strings."
-  [{:keys [color-map], :as options} key-or-str]
-  (color-map (if (keyword? key-or-str) key-or-str (str->key key-or-str))))
+  [{:keys [color-map color?], :as options} key-or-str]
+  ; If we aren't doing color, don't even bother to do the lookup
+  (if color?
+  (color-map (if (keyword? key-or-str) key-or-str (str->key key-or-str)))
+  :none
+  ))
 
 
 ;;


(defn fzprint*
  "The pretty print part of fzprint."
  [{:keys [width rightcnt fn-map hex? shift-seq dbg? dbg-print? in-hang?
           one-line? string-str? string-color depth max-depth trim-comments?
           in-code? max-hang-depth max-hang-span max-hang-count next-inner],
    :as options} indent zloc]

                      (zstring zloc))
                    (if string-color string-color (zcolor-map options :string))
                    :element]]
                (showfn? options (zsexpr zloc)) [[zstr (zcolor-map options :fn)
                                                 :element]]
                (show-user-fn? options (zsexpr zloc))
                  [[zstr (zcolor-map options :user-fn) :element]]
