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

  ;; 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)


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

(defn ns->color!
  "Gives the namespace ns a color."
