Update docs to include binary data

Author: djblue

dev/tasks/pwa.clj

@@ -4,6 +4,7 @@
             [clojure.java.io :as io]
             [hiccup.core :refer [html]]
             [portal.colors :as c]
+            [portal.runtime.cson :as cson]
             [portal.runtime.json :as json]
             [tasks.build :refer [install]]
             [tasks.docs :as docs]
@@ -47,6 +48,13 @@
       [:div {:id "root"}]
       [:script {:src "main.js"}]]])))
 
+(defmethod print-method (Class/forName "[B") [v ^java.io.Writer w]
+  (.write w "#portal/bin \"")
+  (.write w (cson/base64-encode v))
+  (.write w "\""))
+
+(comment (remove-method print-method (Class/forName "[B")))
+
 (defn- ->edn [v] (binding [*print-meta* true] (pr-str v)))
 
 (defn- get-files [settings]

src/portal/runtime/cson.cljc

@@ -213,7 +213,7 @@
 
 (defn tagged-value? [x] (instance? Tagged x))
 
-(defn base64-encode [byte-array]
+(defn base64-encode ^String [byte-array]
   #?(:clj  (.encodeToString (Base64/getEncoder) byte-array)
      :cljs (Base64/encodeByteArray byte-array)
      :cljr (Convert/ToBase64String byte-array)))