diff --git a/common/src/app/common/pprint.cljc b/common/src/app/common/pprint.cljc new file mode 100644 index 0000000000..46ed119c72 --- /dev/null +++ b/common/src/app/common/pprint.cljc @@ -0,0 +1,26 @@ +;; This Source Code Form is subject to the terms of the Mozilla Public +;; License, v. 2.0. If a copy of the MPL was not distributed with this +;; file, You can obtain one at http://mozilla.org/MPL/2.0/. +;; +;; Copyright (c) UXBOX Labs SL + +(ns app.common.pprint + (:refer-clojure :exclude [prn]) + (:require + [fipp.edn :as fpp])) + +(defn pprint-str + [expr] + (binding [*print-level* 8 + *print-length* 25] + (with-out-str + (fpp/pprint expr {:width 110})))) + +(defn pprint + ([expr] + (println (pprint-str expr))) + ([label expr] + (println (str "============ " label "============")) + (pprint expr))) + +