 
 (defn showfn?
   "Show this thing as a function?"
-  [fn-map f]
-  (when (not (string? f))
-    (let [f-str (str f)]
+  [{: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)

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


(defn fzprint*
  "The pretty print part of fzprint."
  [{:keys [width rightcnt 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]
