 
 (defn type->color!
   "Given a type keyword (like :INFO), render the type in color."
-  [db type color]
-  (pred->color! db (partial = type) :type color))
+  [db type-in color]
+  (pred->color! db (partial = type-in) :type color))
 
 (defn ns->color!
   "Gives the namespace ns a color."

  ;; error -> red etc
  ([] (default-config! *db*))
  ([db]
   (color-types! db) ;; This errors and I don't know why
   (install-shortcut! db "l")
   (register-highlighter! db)
   (sensible-time-format db)

  [db pred? which color]
  {:pre [(keyword? which) (or (= :ns which) (= :type which))]}
  (register-transducer!
   db (keyword (str (random-uuid)))
   (map
    (fn [msg]
      (if (pred? (which msg)) ;; pluck out :ns or :type
