ClojureScript utilities for converting between Base64 strings and Uint8Array binary buffers

uint8array-base64-convert.cljs

(defn uint8array-to-base64 [buffer]
  (when-not (nil? buffer)
    (let [bytes (js/Uint8Array. buffer)
          len (.-byteLength bytes)
          binary (->> (range len)
                      (map #(js/String.fromCharCode (aget bytes %)))
                      (apply str))]
      (js/window.btoa binary))))

(defn base64-to-uint8array [base64]
  (when-not (nil? base64)
    (-> (js/window.atob base64)
        (js/Uint8Array.from
         (fn [v] (.charCodeAt v 0))))))