Clojure pretty printer hack to redact secrets

pp-secrets.clj

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