Allow filtering for pprint viewer

- elide binary values by default in pprint viewer

Author: djblue

src/portal/ui/rpc.cljs

@@ -21,14 +21,6 @@
  (-pr-writer [this writer _opts]
              (-write writer (str this "N"))))
 
-(when (exists? js/Uint8Array)
-  (extend-type js/Uint8Array
-    IPrintWithWriter
-    (-pr-writer [this writer _opts]
-      (-write writer "#portal/bin \"")
-      (-write writer (cson/base64-encode this))
-      (-write writer "\""))))
-
 (extend-type array
   IHash
   (-hash [this]

src/portal/ui/viewer/pprint.cljs

@@ -2,6 +2,8 @@
   (:require [clojure.pprint :as pp]
             [clojure.string :as str]
             [portal.runtime.cson :as cson]
+            [portal.ui.filter :as f]
+            [portal.ui.inspector :as ins]
             [portal.ui.viewer.code :as code]))
 
 (defn- queue? [obj]
@@ -13,6 +15,7 @@
 (defn- type-dispatcher [obj]
   (cond
     (cson/tagged-value? obj) :tagged
+    (ins/bin? obj) :bin
 
     (queue? obj)  :queue
     (deref? obj)  :deref
@@ -26,6 +29,24 @@
 
 (defmulti pprint-dispatch type-dispatcher)
 
+(def ^:dynamic *elide-binary* false)
+
+(when (exists? js/Uint8Array)
+  (extend-type js/Uint8Array
+    IPrintWithWriter
+    (-pr-writer [^js/Uint8Array this writer _opts]
+      (-write writer "#object[Uint8Array ")
+      (-write writer (.-length this))
+      (-write writer "]"))))
+
+(defmethod pprint-dispatch :bin [value]
+  (if *elide-binary*
+    (-write *out* (pr-str value))
+    (do
+      (-write *out* "#portal/bin \"")
+      (-write *out* (cson/base64-encode value))
+      (-write *out* "\""))))
+
 (defmethod pprint-dispatch :tagged  [value] (-write *out* (pr-str value)))
 (defmethod pprint-dispatch :list    [value] (#'pp/pprint-list value))
 (defmethod pprint-dispatch :vector  [value] (#'pp/pprint-vector value))
@@ -38,12 +59,14 @@
 (pp/set-pprint-dispatch pprint-dispatch)
 
 (defn pprint-data [value]
-  (let [options (:portal.viewer/pprint (meta value))]
+  (let [options (:portal.viewer/pprint (meta value))
+        search-text (ins/use-search-text)]
     (binding [*print-meta*   (:print-meta   options (coll? value))
               *print-length* (:print-length options 25)
-              *print-level*  (:print-level  options 5)]
+              *print-level*  (:print-level  options 5)
+              *elide-binary* true]
       [code/highlight-clj
-       (str/trim (with-out-str (pp/pprint value)))])))
+       (str/trim (with-out-str (pp/pprint (f/filter-value value search-text))))])))
 
 (def viewer
   {:predicate (constantly true)