 (defn show-user-fn?
   "Show this thing as a user defined function?  Assumes that we
   have already handled any clojure defined functions!"
-  [options f]
-  (when (not (string? f))
-    (let [f-str (str f)
-          user-fn-map (:user-fn-map options)]
+  [{:keys [user-fn-map color?], :as options} f]
+  (when (and color? (not (string? f)))
+    (let [f-str (str f)]
       (or (get user-fn-map f-str)
           (if (symbol? f)
             ; This is necessary because f can be a symbol that


(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]


(defn showfn?
  "Show this thing as a function?"
  [{:keys [fn-map color?], :as options} f]
  (when (and color? (not (string? f)))
    (let [f-str (str f)
          fn-map (:fn-map options)]
      (or (fn-map f-str)
          (re-find #"clojure" f-str)
          (if (symbol? f)
