📎 Add debug helpers for jvm/tap

common/src/app/common/debug.clj

@@ -0,0 +1,36 @@
+;; 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) KALEIDOS INC
+
+(ns app.common.debug
+  (:require
+   [app.common.logging :as l]
+   [app.common.pprint :as pp]))
+
+(defn pprint
+  [expr]
+  (l/raw! :debug
+          (binding [*print-level* pp/default-level
+                    *print-length* pp/default-length]
+            (with-out-str
+              (println "tap dbg:")
+              (pp/pprint expr {:max-width pp/default-width})))))
+
+
+(def store (atom {}))
+
+(defn get-stored
+  []
+  (deref store))
+
+(defn tap-handler
+  [v]
+  (if (and (vector? v)
+           (keyword (first v)))
+    (let [[command obj] v]
+      (case command
+        (:print :prn :pprint) (pprint obj)
+        :store  (reset! store obj)))
+    (pprint v)))

common/src/app/common/pprint.cljc

@@ -9,9 +9,26 @@
   (:require
    [me.flowthing.pp :as pp]))
 
+(def default-level 8)
+(def default-length 25)
+(def default-width 120)
+
+#?(:clj
+   (defn set-defaults
+     [& {:keys [level width length]}]
+     (when length
+       (alter-var-root #'default-length (constantly length)))
+     (when width
+       (alter-var-root #'default-width (constantly width)))
+     (when level
+       (alter-var-root #'default-level (constantly level)))
+     nil))
+
 (defn pprint
   [expr & {:keys [width level length]
-           :or {width 120 level 8 length 25}}]
+           :or {width default-width
+                level default-level
+                length default-length}}]
   (binding [*print-level* level
             *print-length* length]
     (pp/pprint expr {:max-width width})))