 (let [lg (logger ::ERROR)]
   (lg {:test "foo"} :bar :haha)
   (lg {:test "twooo"}))
+
+;;(log! )
 
 (let [lg (logger ::ERROR)]
   (lg {:test "foo"} :bar :haha)

     ;;(l i)
     (recur (+ i 1)))))

;; Dered me to generate logs and test freezing
;; @gen-logs



                                         (set types)
                                         (:type %)))))

(defn tab->ns*!
  [db tab-key & namespaces]
  (tab->transducer! db tab-key (filter #(some
                                         (fn[ns] (self-or-parent? ns (:ns %)))
                                         namespaces))))


(defn tab->ns!
  [db tab-key & namespaces]
  (tab->transducer! db tab-key (filter #(some
                                         (fn[ns] (= ns (:ns %)))
                                         namespaces))))

;; OLD:
#_(defn tab->ns!
  [db tab-key & namespaces]
  (tab->transducer! db tab-key (filter #(contains?
                                         (set namespaces)
                                         (:ns %)))))


(register-highlighter! *db*)
(type->color *db* :INFO "lightblue")
(type->color *db* :ERROR "red")
(type->color *db* :TRACE "gray")
(type->color *db* :WARN "orange")
;;(ns*->color *db* "my.ns" "darkred")
(msg->console! *db* :CONSOLE)
(tab->type! *db* :error :ERROR)
(tab->type! *db* :errwarn :ERROR :WARN)
(tab->ns! *db* :my.ns "my.ns")
(tab->ns*! *db* :my.ns* "my.ns")
;; Or if we want multiple:
;; (tab->transducer! *db* :my.ns (filter #(self-or-parent? "my.ns" (:ns %))))

(log! *db* ::WARN :hi :there)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Log some:
