pspit

deps.edn

{:paths ["."]}

pspit.clj

(ns pspit)

(def improved-pprint (. clojure.pprint/simple-dispatch addMethod datomic.db.DbId #(.write *out* (str %))))

(defn pformat
  ([data] (pformat data 72))
  ([data print-right-margin]
   (clojure.pprint/with-pprint-dispatch improved-pprint
    (with-out-str
      (binding [clojure.pprint/*print-right-margin* print-right-margin]
        (clojure.pprint/pprint data))))))

(defn pspit
  ([filename data] (spit filename (pformat data)))
  ([filename data print-right-margin] (spit filename (pformat data print-right-margin))))