[nop] Move HandlerVal to impln ns

Author: ptaoussanis

src/taoensso/tufte.cljc

@@ -31,9 +31,9 @@
    [taoensso.truss        :as truss]
    [taoensso.encore       :as enc]
    [taoensso.encore.stats :as stats]
-   [taoensso.tufte.impl   :as impl #?@(:cljs [:refer [PStats]])])
+   [taoensso.tufte.impl   :as impl #?@(:cljs [:refer [PStats HandlerVal]])])
 
-  #?(:clj  (:import [taoensso.tufte.impl PStats]))
+  #?(:clj  (:import [taoensso.tufte.impl PStats HandlerVal]))
   #?(:cljs (:require-macros [taoensso.tufte :refer [profiled]])))
 
 (comment
@@ -469,8 +469,6 @@
   (profiled {:level 2 :when (chance 0.5)} (p :p1 "body"))
   (profiled {} (p :foo (p :bar))))
 
-(defrecord HandlerVal [ns-str level ?id ?data pstats pstats-str_ ?file ?line])
-
 #?(:clj
    (defmacro profile
      "Always executes body, and always returns <body-result>.
@@ -556,7 +554,7 @@
 
 (comment (profile {:id ::my-id} (p :p1 "body")))
 
-;;;; Output handlers
+;;;; Handlers
 ;; Handlers are used for `profile` output, let us nicely decouple stat
 ;; creation and consumption.
 

src/taoensso/tufte/impl.cljc

@@ -638,7 +638,21 @@
          (map (fn [id] (str id sep (format-pstats (get m id) format-pstats-opts))))
          sorted-profiling-ids)))))
 
-;;;; Output handlers
+;;;; Handlers
+
+(defrecord HandlerVal [ns-str level ?id ?data pstats pstats-str_ ?file ?line]
+  Object (toString [this] (str "taoensso.tufte.HandlerVal" (enc/pr-edn* (into {} this)))))
+
+;; Verbose constructors for readability + to support extra keys
+(do     (enc/def-print-impl [x HandlerVal] (str "#taoensso.tufte.HandlerVal"      (enc/pr-edn* (into {} x)))))
+#?(:clj (enc/def-print-dup  [x HandlerVal] (str "#taoensso.tufte.impl.HandlerVal" (enc/pr-edn* (into {} x)))))
+
+(comment
+  [(read-string (binding [*print-dup* true] (pr-str        (HandlerVal. 0 0 0 0 0 0 0 0))))
+   (read-string (binding [*print-dup* true] (pr-str (assoc (HandlerVal. 0 0 0 0 0 0 0 0) :k :v))))
+   (do          (binding [*print-dup* true] (   str (assoc (HandlerVal. 0 0 0 0 0 0 0 0) :k :v))))
+   (do                                      (pr-str (assoc (HandlerVal. 0 0 0 0 0 0 0 0) :k :v)))
+   (do                                      (   str (assoc (HandlerVal. 0 0 0 0 0 0 0 0) :k :v)))])
 
 (enc/defonce handlers_ "{<hid> <handler-fn>}" (atom nil))