colliderwriter

(defn pp-secrets [obj]
  (let [orig-dispatch pprint/*print-pprint-dispatch*]
    (pprint/with-pprint-dispatch
      (fn [o]
        (if (:secret (meta o))
          (do (print "*redacted*")
              (pprint/pprint-newline :fill)
              )
          (orig-dispatch o)))
      (pprint/pprint obj))))

colliderwriter

(defn dev-system
  []
  (component/system-map
   :out (kp/new-kafka-producer (select-keys env (kp/options)))
   :in (kc/new-kafka-consumer (select-keys env (kc/options)))
   :server (component/using
            (ss/new-standardized-server (select-keys env ss/options))
            {:output :out}))
  )