diff --git a/deps.edn b/deps.edn
index 2fac48c8..aa9ceaa9 100644
--- a/deps.edn
+++ b/deps.edn
@@ -7,7 +7,14 @@
            org.clojure/tools.logging   {:mvn/version "0.5.0"}
            org.clojure/data.json       {:mvn/version "0.2.7"}
            org.clojure/data.xml        {:mvn/version "0.2.0-alpha6"}
-           com.cognitect/http-client   {:mvn/version "0.1.101"}}
+           com.cognitect/http-client   {:mvn/version "0.1.101"}
+           
+           
+           ;; CLJS support
+           com.andrewmcveigh/cljs-time {:mvn/version "0.5.2"}
+         
+         
+         }
  :aliases {:update-versions {:extra-paths ["build/src"]
                              :main-opts   ["-m" "cognitect.aws.version-updater"]}
            :dev             {:extra-paths ["dev/src" "dev/resources" "test/src" "test/resources"]
@@ -18,6 +25,10 @@
            :test            {:extra-deps  {com.cognitect/test-runner {:git/url "https://github.com/cognitect-labs/test-runner.git"
                                                                       :sha     "cb96e80f6f3d3b307c59cbeb49bb0dcb3a2a780b"}}
                              :main-opts   ["-m" "cognitect.test-runner"]}
+                             
+           :cljs-build
+           {:extra-deps {org.clojure/clojurescript {:mvn/version "1.10.520"}}
+            :main-opts ["-m" "cljs.main" "-co" "min.js.edn" "-c"]}
            :examples        {:extra-paths ["examples" "examples/resources" "dev/resources"]
                              :extra-deps  {org.clojure/test.check      {:mvn/version "0.10.0"}
                                            org.slf4j/slf4j-log4j12     {:mvn/version "1.7.28"}
diff --git a/min.js.edn b/min.js.edn
new file mode 100644
index 00000000..1a2e0f1b
--- /dev/null
+++ b/min.js.edn
@@ -0,0 +1,66 @@
+;; borrowed from axel-f with lots of with gratitute
+;; https://github.com/xapix-io/axel-f/blob/9bb72e13699b9559142392c4fa19041b1d072244/axel_f.min.js.edn
+{:output-to "out/min/sci.min.js"
+ :output-dir "out/min"
+ :optimizations :advanced
+ :main "sci.impl.js"
+ :aot-cache true
+ :compiler-stats true
+ :pretty-print  false
+ :elide-asserts true
+ :parallel-build true
+ :checked-arrays :warn
+ :static-fns true
+ :fn-invoke-direct true
+ :warnings {:fn-deprecated false}
+ :optimize-constants true
+ :output-wrapper "/**
+ * Small Clojure Compiler v0.0.9-alpha
+ *
+ * Copyright 2019 Michiel Borkent
+ *
+ * Licensed under Eclipse Public License;
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ * https://github.com/borkdude/sci/blob/master/LICENSE
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an \"AS IS\" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+(function (definition) {
+    // This file will function properly as a <script> tag, or a module
+    // using CommonJS and NodeJS or RequireJS module formats. In
+    // Common/Node/RequireJS, the module exports the sci API and when
+    // executed as a simple <script>, it creates a sci global
+    // instead.
+
+    // Wrapper gratefully adapted from:
+    // https://github.com/kriskowal/q/blob/v1/q.js
+    // https://github.com/swannodette/mori/blob/master/support/wrapper.js
+    // https://github.com/tonsky/datascript/tree/master/release-js
+
+    // CommonJS
+    if (typeof exports === \"object\") {
+        module.exports = definition();
+
+    // RequireJS
+    } else if (typeof define === \"function\" && define.amd) {
+        define(definition);
+
+    // <script>
+    } else {
+        sci = definition();
+    }
+})(function () {
+    return function () {
+
+        %s
+        return this.sci.impl.js;
+
+    }.call({});
+
+});"}
\ No newline at end of file
diff --git a/script/compile-js b/script/compile-js
new file mode 100755
index 00000000..450cf0f3
--- /dev/null
+++ b/script/compile-js
@@ -0,0 +1,5 @@
+#!/usr/bin/env bash
+
+set -Eeo pipefail
+
+clojure -A:cljs-build
\ No newline at end of file
diff --git a/src/clojure/data/json.cljs b/src/clojure/data/json.cljs
new file mode 100644
index 00000000..14a9f92e
--- /dev/null
+++ b/src/clojure/data/json.cljs
@@ -0,0 +1,10 @@
+(ns clojure.data.json)
+
+;; TODO implemenent necessary API
+
+(defn read-str [s & {:keys [key-fn]}]
+  ;; FIXME key-fn is not exactly keywordize-keys?
+  (js->clj (.parse js/JSON) (if key-fn true false)))
+  
+(defn write-str [data]
+  (.stringify js/JSON (clj->js data)))
\ No newline at end of file
diff --git a/src/cognitect/aws/client.clj b/src/cognitect/aws/client.clj
deleted file mode 100644
index d2415fda..00000000
--- a/src/cognitect/aws/client.clj
+++ /dev/null
@@ -1,110 +0,0 @@
-;; Copyright (c) Cognitect, Inc.
-;; All rights reserved.
-
-(ns ^:skip-wiki cognitect.aws.client
-  "Impl, don't call directly."
-  (:require [clojure.core.async :as a]
-            [cognitect.aws.http :as http]
-            [cognitect.aws.util :as util]
-            [cognitect.aws.interceptors :as interceptors]
-            [cognitect.aws.credentials :as credentials])
-  (:import [java.util.concurrent Callable ExecutorService Executors ThreadFactory]))
-
-(set! *warn-on-reflection* true)
-
-(defprotocol ClientSPI
-  (-get-info [_] "Intended for internal use only"))
-
-(deftype Client [client-meta info]
-  clojure.lang.IObj
-  (meta [_] @client-meta)
-  (withMeta [this m] (swap! client-meta merge m) this)
-
-  ClientSPI
-  (-get-info [_] info))
-
-(defmulti build-http-request
-  "AWS request -> HTTP request."
-  (fn [service op-map]
-    (get-in service [:metadata :protocol])))
-
-(defmulti parse-http-response
-  "HTTP response -> AWS response"
-  (fn [service op-map http-response]
-    (get-in service [:metadata :protocol])))
-
-(defmulti sign-http-request
-  "Sign the HTTP request."
-  (fn [service endpoint credentials http-request]
-    (get-in service [:metadata :signatureVersion])))
-
-;; TODO convey throwable back from impl
-(defn ^:private handle-http-response
-  [service op-map http-response]
-  (try
-    (if (:cognitect.anomalies/category http-response)
-      http-response
-      (parse-http-response service op-map http-response))
-    (catch Throwable t
-      {:cognitect.anomalies/category :cognitect.anomalies/fault
-       ::throwable t})))
-
-(defn ^:private with-endpoint [req {:keys [protocol
-                                           hostname
-                                           port
-                                           path]
-                                    :as   endpoint}]
-  (cond-> (-> req
-              (assoc-in [:headers "host"] hostname)
-              (assoc :server-name hostname))
-    protocol (assoc :scheme protocol)
-    port     (assoc :server-port port)
-    path     (assoc :uri path)))
-
-(defn- send-request*
-  "*Blocking* helper, call only from send-request."
-  [ch client op-map]
-  (let [err-meta (atom {})]
-    (try
-      (let [{:keys [service region credentials endpoint http-client]} (-get-info client)
-            http-request (sign-http-request service endpoint
-                                            (credentials/fetch credentials)
-                                            (-> (build-http-request service op-map)
-                                                (with-endpoint endpoint)
-                                                (update :body util/->bbuf)
-                                                ((partial interceptors/modify-http-request service op-map))))]
-        (swap! err-meta assoc :http-request http-request)
-        (a/take!
-         (http/submit http-client http-request)
-         (fn [response]
-           (a/put! ch (with-meta
-                        (handle-http-response service op-map response)
-                        {:http-request  http-request
-                         :http-response (update response :body util/bbuf->input-stream)}))))
-        ch)
-      (catch Throwable t
-        (a/put! ch (with-meta
-                     {:cognitect.anomalies/category :cognitect.anomalies/fault
-                      ::throwable                   t}
-                     (assoc @err-meta :op-map op-map)))
-        ch))))
-
-(defonce send-pool
-  (delay
-   (let [idx (atom 0)]
-     (Executors/newFixedThreadPool
-      4
-      (reify ThreadFactory
-             (newThread
-              [_ runnable]
-              (doto (.newThread (Executors/defaultThreadFactory) runnable)
-                (.setName (str "cognitect-aws-send-" (swap! idx inc)))
-                (.setDaemon true))))))))
-
-(defn send-request
-  "Send the request to AWS and return a channel which delivers the response."
-  [client op-map]
-  (let [ch (a/chan 1)]
-    (.submit ^ExecutorService @send-pool
-             ^Callable #(send-request* ch client op-map))
-    ch))
diff --git a/src/cognitect/aws/client.cljc b/src/cognitect/aws/client.cljc
new file mode 100644
index 00000000..687dc394
--- /dev/null
+++ b/src/cognitect/aws/client.cljc
@@ -0,0 +1,59 @@
+;; Copyright (c) Cognitect, Inc.
+;; All rights reserved.
+
+(ns ^:skip-wiki cognitect.aws.client
+  "Impl, don't call directly."
+  (:require [clojure.core.async :as a]
+            [cognitect.aws.util :as util]))
+
+#?(:clj (set! *warn-on-reflection* true))
+
+(defprotocol ClientSPI
+  (-get-info [_] "Intended for internal use only"))
+
+(deftype Client [client-meta info]
+  clojure.lang.IObj
+  (meta [_] @client-meta)
+  (withMeta [this m] (swap! client-meta merge m) this)
+
+  ClientSPI
+  (-get-info [_] info))
+
+(defmulti build-http-request
+  "AWS request -> HTTP request."
+  (fn [service op-map]
+    (get-in service [:metadata :protocol])))
+
+(defmulti parse-http-response
+  "HTTP response -> AWS response"
+  (fn [service op-map http-response]
+    (get-in service [:metadata :protocol])))
+
+(defmulti sign-http-request
+  "Sign the HTTP request."
+  (fn [service endpoint credentials http-request]
+    (get-in service [:metadata :signatureVersion])))
+
+;; TODO convey throwable back from impl
+(defn ^:private handle-http-response
+  [service op-map http-response]
+  (try
+    (if (:cognitect.anomalies/category http-response)
+      http-response
+      (parse-http-response service op-map http-response))
+    (catch Throwable t
+      {:cognitect.anomalies/category :cognitect.anomalies/fault
+       ::throwable t})))
+
+(defn ^:private with-endpoint [req {:keys [protocol
+                                           hostname
+                                           port
+                                           path]
+                                    :as   endpoint}]
+  (cond-> (-> req
+              (assoc-in [:headers "host"] hostname)
+              (assoc :server-name hostname))
+    protocol (assoc :scheme protocol)
+    port     (assoc :server-port port)
+    path     (assoc :uri path)))
+
diff --git a/src/cognitect/aws/client/api.clj b/src/cognitect/aws/client/api.clj
deleted file mode 100644
index e932a3e4..00000000
--- a/src/cognitect/aws/client/api.clj
+++ /dev/null
@@ -1,219 +0,0 @@
-;; Copyright (c) Cognitect, Inc.
-;; All rights reserved.
-
-(ns cognitect.aws.client.api
-  "API functions for using a client to interact with AWS services."
-  (:require [clojure.core.async :as a]
-            [clojure.tools.logging :as log]
-            [clojure.string :as str]
-            [cognitect.aws.dynaload :as dynaload]
-            [cognitect.aws.client :as client]
-            [cognitect.aws.retry :as retry]
-            [cognitect.aws.credentials :as credentials]
-            [cognitect.aws.endpoint :as endpoint]
-            [cognitect.aws.http :as http]
-            [cognitect.aws.service :as service]
-            [cognitect.aws.region :as region]
-            [cognitect.aws.client.api.async :as api.async]
-            [cognitect.aws.signers] ;; implements multimethods
-            [cognitect.aws.util :as util]))
-
-(declare ops)
-
-(defn client
-  "Given a config map, create a client for specified api. Supported keys:
-
-  :api                  - required, this or api-descriptor required, the name of the api
-                          you want to interact with e.g. :s3, :cloudformation, etc
-  :region               - optional, the aws region serving the API endpoints you
-                          want to interact with, defaults to region provided by
-                          by the default region provider (see cognitect.aws.region)
-  :credentials-provider - optional, implementation of
-                          cognitect.aws.credentials/CredentialsProvider
-                          protocol, defaults to
-                          cognitect.aws.credentials/default-credentials-provider
-  :region-provider      - optional, implementation of aws-clojure.region/RegionProvider
-                          protocol, defaults to cognitect.aws.region/default-region-provider
-  :http-client          - optional, to share http-clients across aws-clients.
-                          See default-http-client.
-  :endpoint-override    - optional, map to override parts of the endpoint. Supported keys:
-                            :protocol     - :http or :https
-                            :hostname     - string
-                            :port         - int
-                            :path         - string
-                          If the hostname includes an AWS region, be sure use the same
-                          region for the client (either via out of process configuration
-                          or the :region key supplied to this fn).
-                          Also supports a string representing just the hostname, though
-                          support for a string is deprectated and may be removed in the
-                          future.
-  :retriable?           - optional, fn of http-response (see cognitect.aws.http/submit).
-                          Should return a boolean telling the client whether or
-                          not the request is retriable.  The default,
-                          cognitect.aws.retry/default-retriable?, returns
-                          true when the response indicates that the service is
-                          busy or unavailable.
-  :backoff              - optional, fn of number of retries so far. Should return
-                          number of milliseconds to wait before the next retry
-                          (if the request is retriable?), or nil if it should stop.
-                          Defaults to cognitect.aws.retry/default-backoff.
-
-  Alpha. Subject to change."
-  [{:keys [api region region-provider retriable? backoff credentials-provider endpoint endpoint-override
-           http-client]
-    :or {endpoint-override {}}
-    :as config}]
-  (when (string? endpoint-override)
-    (log/warn
-     (format
-      "DEPRECATION NOTICE: :endpoint-override string is deprecated.\nUse {:endpoint-override {:hostname \"%s\"}} instead."
-      endpoint-override)))
-  (let [service   (service/service-description (name api))
-        http-client (http/resolve-http-client http-client)
-        region    (keyword
-                   (or region
-                       (region/fetch
-                        (or region-provider
-                            (region/default-region-provider http-client)))))]
-    (dynaload/load-ns (symbol (str "cognitect.aws.protocols." (get-in service [:metadata :protocol]))))
-    (client/->Client
-     (atom {'clojure.core.protocols/datafy (fn [c]
-                                             (-> c
-                                                 client/-get-info
-                                                 (select-keys [:region :endpoint :service])
-                                                 (update :endpoint select-keys [:hostname :protocols :signatureVersions])
-                                                 (update :service select-keys [:metadata])
-                                                 (assoc :ops (ops c))))})
-     {:service     service
-      :region      region
-      :endpoint    (if-let [ep (endpoint/resolve (keyword (get-in service [:metadata :endpointPrefix]))
-                                                 (keyword region))]
-                     (merge ep (if (string? endpoint-override)
-                                 {:hostname endpoint-override}
-                                 endpoint-override))
-                     (throw (ex-info "No known endpoint." {:service api :region region})))
-      :retriable?  (or retriable? retry/default-retriable?)
-      :backoff     (or backoff retry/default-backoff)
-      :http-client http-client
-      :credentials (or credentials-provider (credentials/default-credentials-provider http-client))})))
-
-(defn default-http-client
-  "Create an http-client to share across multiple aws-api clients."
-  []
-  (http/resolve-http-client nil))
-
-(defn invoke
-  "Package and send a request to AWS and return the result.
-
-  Supported keys in op-map:
-
-  :op                   - required, keyword, the op to perform
-  :request              - required only for ops that require them.
-  :retriable?           - optional, defaults to :retriable? on the client.
-                          See client.
-  :backoff              - optional, defaults to :backoff on the client.
-                          See client.
-
-  After invoking (cognitect.aws.client.api/validate-requests true), validates
-  :request in op-map.
-
-  Alpha. Subject to change."
-  [client op-map]
-  (a/<!! (api.async/invoke client op-map)))
-
-(defn validate-requests
-  "Given true, uses clojure.spec to validate all invoke calls on client.
-
-  Alpha. Subject to change."
-  ([client]
-   (validate-requests client true))
-  ([client bool]
-   (api.async/validate-requests client bool)))
-
-(defn request-spec-key
-  "Returns the key for the request spec for op.
-
-  Alpha. Subject to change."
-  [client op]
-  (service/request-spec-key (-> client client/-get-info :service) op))
-
-(defn response-spec-key
-  "Returns the key for the response spec for op.
-
-  Alpha. Subject to change."
-  [client op]
-  (service/response-spec-key (-> client client/-get-info :service) op))
-
-(def ^:private pprint-ref (delay (dynaload/load-var 'clojure.pprint/pprint)))
-(defn ^:skip-wiki pprint
-  "For internal use. Don't call directly."
-  [& args]
-  (binding [*print-namespace-maps* false]
-    (apply @pprint-ref args)))
-
-(defn ops
-  "Returns a map of operation name to operation data for this client.
-
-  Alpha. Subject to change."
-  [client]
-  (->> client
-       client/-get-info
-       :service
-       service/docs))
-
-(defn doc-str
-  "Given data produced by `ops`, returns a string
-  representation.
-
-  Alpha. Subject to change."
-  [{:keys [documentation documentationUrl request required response refs] :as doc}]
-  (when doc
-    (str/join "\n"
-              (cond-> ["-------------------------"
-                       (:name doc)
-                       ""
-                       documentation]
-                documentationUrl
-                (into [""
-                       documentationUrl])
-                request
-                (into [""
-                       "-------------------------"
-                       "Request"
-                       ""
-                       (with-out-str (pprint request))])
-                required
-                (into ["Required"
-                       ""
-                       (with-out-str (pprint required))])
-                response
-                (into ["-------------------------"
-                       "Response"
-                       ""
-                       (with-out-str (pprint response))])
-                refs
-                (into ["-------------------------"
-                       "Given"
-                       ""
-                       (with-out-str (pprint refs))])))))
-
-(defn doc
-  "Given a client and an operation (keyword), prints documentation
-  for that operation to the current value of *out*. Returns nil.
-
-  Alpha. Subject to change."
-  [client operation]
-  (println (or (some-> client ops operation doc-str)
-               (str "No docs for " (name operation)))))
-
-(defn stop
-  "Shuts down the underlying http-client, releasing resources.
-
-  NOTE: if you're sharing an http-client across aws-api clients,
-  this will shut down the shared client for all aws-api clients
-  that are using it.
-
-  Alpha. Subject to change."
-  [client]
-  (let [{:keys [http-client credentials]} (client/-get-info client)]
-    (http/-stop http-client)))
diff --git a/src/cognitect/aws/client/api/async.clj b/src/cognitect/aws/client/api/async.clj
deleted file mode 100644
index 96083afc..00000000
--- a/src/cognitect/aws/client/api/async.clj
+++ /dev/null
@@ -1,70 +0,0 @@
-;; Copyright (c) Cognitect, Inc.
-;; All rights reserved.
-
-(ns cognitect.aws.client.api.async
-  "API functions for using a client to interact with AWS services."
-  (:require [clojure.core.async :as a]
-            [cognitect.aws.client :as client]
-            [cognitect.aws.retry :as retry]
-            [cognitect.aws.service :as service]
-            [cognitect.aws.dynaload :as dynaload]))
-
-(def ^:private validate-requests? (atom {}))
-
-(defn ^:skip-wiki validate-requests
-  "For internal use. Don't call directly."
-  [client tf]
-  (swap! validate-requests? assoc client tf)
-  (when tf
-    (service/load-specs (-> client client/-get-info :service)))
-  tf)
-
-(def ^:private registry-ref (delay (dynaload/load-var 'clojure.spec.alpha/registry)))
-(defn ^:skip-wiki registry
-  "For internal use. Don't call directly."
-  [& args] (apply @registry-ref args))
-
-(def ^:private valid?-ref (delay (dynaload/load-var 'clojure.spec.alpha/valid?)))
-(defn ^:skip-wiki valid?
-  "For internal use. Don't call directly."
-  [& args] (apply @valid?-ref args))
-
-(def ^:private explain-data-ref (delay (dynaload/load-var 'clojure.spec.alpha/explain-data)))
-(defn ^:skip-wiki explain-data
-  "For internal use. Don't call directly."
-  [& args] (apply @explain-data-ref args))
-
-(defn ^:skip-wiki validate
-  "For internal use. Don't call directly."
-  [service {:keys [op request] :or {request {}}}]
-  (let [spec (service/request-spec-key service op)]
-    (when (contains? (-> (registry) keys set) spec)
-      (when-not (valid? spec request)
-        (assoc (explain-data spec request)
-               :cognitect.anomalies/category :cognitect.anomalies/incorrect)))))
-
-(defn invoke
-  "Async version of cognitect.aws.client.api/invoke. Returns
-  a core.async channel which delivers the result.
-
-  Additional supported keys in op-map:
-
-  :ch - optional, channel to deliver the result
-
-  Alpha. Subject to change."
-  [client op-map]
-  (let [result-chan                          (or (:ch op-map) (a/promise-chan))
-        {:keys [service retriable? backoff]} (client/-get-info client)
-        validation-error                     (and (get @validate-requests? client)
-                                                  (validate service op-map))]
-    (when-not (contains? (:operations service) (:op op-map))
-      (throw (ex-info "Operation not supported" {:service (keyword (service/service-name service))
-                                                 :operation (:op op-map)})))
-    (if validation-error
-      (a/put! result-chan validation-error)
-      (retry/with-retry
-        #(client/send-request client op-map)
-        result-chan
-        (or (:retriable? op-map) retriable?)
-        (or (:backoff op-map) backoff)))
-    result-chan))
diff --git a/src/cognitect/aws/config.clj b/src/cognitect/aws/config.clj
deleted file mode 100644
index dd3b7baf..00000000
--- a/src/cognitect/aws/config.clj
+++ /dev/null
@@ -1,86 +0,0 @@
-;; Copyright (c) Cognitect, Inc.
-;; All rights reserved.
-
-(ns ^:skip-wiki cognitect.aws.config
-  (:require [clojure.string :as str]
-            [clojure.java.io :as io]))
-
-(set! *warn-on-reflection* true)
-
-;;; predicates
-
-(defn comment? [s]
-  (str/starts-with? s "#"))
-
-(defn start-profile? [s]
-  (str/starts-with? s "["))
-
-(defn start-nested? [s]
-  (re-find #"^[\w-_\.]+\s*=$" s))
-
-(defn add-profile-kv? [s]
-  (re-find #"^[\w-_\.]+\s*=.*\w+" s))
-
-(defn add-nested-kv? [s]
-  (re-find #"^\s+[\w-_\.]+\s*=.*\w+" s))
-
-;;; helpers
-
-(defn split-lines [s]
-  (into []
-        (comp (map str/trimr)
-              (remove str/blank?)
-              (remove comment?))
-        (str/split-lines s)))
-
-(defn split-kv [s]
-  (->> (str/split s #"=" 2)
-       (map str/trim)))
-
-;;; actions
-
-(defn set-profile-path [m line]
-  (assoc m :path [:profiles (second (re-find #"\[(?:profile)?\s*(.+)\]" line))]))
-
-(defn ensure-profile-path [m]
-  (update m :path (comp vec (partial take 2))))
-
-(defn set-nested-path [m line]
-  (update m :path #(conj (vec (take 2 %))
-                         (-> line (str/replace #"=" "") (str/trim)))))
-
-(defn add-profile-kv [m line]
-  (let [[k v] (split-kv line)]
-    (update-in m (take 2 (:path m)) assoc k v)))
-
-(defn add-nested-kv [m line]
-  (let [[k v] (split-kv line)]
-    (apply update-in m (:path m) assoc (split-kv line))))
-
-;;; main
-
-(defn parse
-  "Return the profiles in the configuration file."
-  [file]
-  (->> file
-       slurp
-       split-lines
-       (reduce (fn [m ^String line]
-                 (cond (start-profile? line)
-                       (set-profile-path m line)
-
-                       (start-nested? line)
-                       (set-nested-path m line)
-
-                       (add-profile-kv? line)
-                       (-> m
-                           (add-profile-kv line)
-                           (ensure-profile-path))
-
-                       (add-nested-kv? line)
-                       (add-nested-kv m line)
-
-                       :else
-                       (throw (ex-info "Invalid format in config" {:file file}))))
-               {:profiles {}})
-       :profiles))
diff --git a/src/cognitect/aws/credentials.clj b/src/cognitect/aws/credentials.clj
deleted file mode 100644
index 2cf6088d..00000000
--- a/src/cognitect/aws/credentials.clj
+++ /dev/null
@@ -1,311 +0,0 @@
-;; Copyright (c) Cognitect, Inc.
-;; All rights reserved.
-
-(ns cognitect.aws.credentials
-  "Contains credentials providers and helpers for discovering credentials.
-
-  Alpha. Subject to change."
-  (:require [clojure.data.json :as json]
-            [clojure.java.io :as io]
-            [clojure.string :as str]
-            [clojure.tools.logging :as log]
-            [cognitect.aws.util :as u]
-            [cognitect.aws.config :as config]
-            [cognitect.aws.ec2-metadata-utils :as ec2])
-  (:import (java.util.concurrent Executors ScheduledExecutorService)
-           (java.util.concurrent TimeUnit ThreadFactory)
-           (java.io File)
-           (java.net URI)
-           (java.time Duration Instant)))
-
-(defprotocol CredentialsProvider
-  (fetch [_]
-    "Return the credentials found by this provider, or nil.
-
-    Credentials should be a map with the following keys:
-
-    :aws/access-key-id                      string  required
-    :aws/secret-access-key                  string  required
-    :aws/session-token                      string  optional
-    :cognitect.aws.credentials/ttl          number  optional  Time-to-live in seconds"))
-
-(defprotocol Stoppable
-  (-stop [_]))
-
-(extend-protocol Stoppable
-  Object
-  (-stop [_]))
-
-;; Credentials subsystem
-
-(defn ^:skip-wiki auto-refresh-fn
-  "For internal use. Don't call directly.
-
-  Return the function to auto-refresh the `credentials` atom using the given `provider`.
-
-  If the credentials return a ::ttl, schedule refresh after ::ttl seconds using `scheduler`.
-
-  If the credentials returned by the provider are not valid, an error will be logged and
-  the automatic refresh process will stop."
-  [credentials provider scheduler]
-  (fn refresh! []
-    (try
-      (let [{:keys [::ttl] :as new-creds} (fetch provider)]
-        (reset! credentials new-creds)
-        (when ttl
-          (.schedule ^ScheduledExecutorService scheduler
-                     ^Runnable refresh!
-                     ^long ttl
-                     TimeUnit/SECONDS))
-        new-creds)
-      (catch Throwable t
-        (log/error t "Error fetching the credentials.")))))
-
-(defn auto-refreshing-credentials
-  "Create auto-refreshing credentials using the specified provider.
-
-  Return a derefable containing the credentials.
-
-  Call `stop` to stop the auto-refreshing process.
-
-  The default ScheduledExecutorService uses a ThreadFactory
-  that spawns daemon threads. You can override this by
-  providing your own ScheduledExecutorService.
-
-  Alpha. Subject to change."
-  ([provider]
-   (auto-refreshing-credentials
-    provider
-    (Executors/newScheduledThreadPool 1 (reify ThreadFactory
-                                          (newThread [_ r]
-                                            (doto (Thread. r)
-                                              (.setName "cognitect.aws-api.credentials.refresh")
-                                              (.setDaemon true)))))))
-  ([provider scheduler]
-   (let [credentials (atom nil)
-         auto-refresh! (auto-refresh-fn credentials provider scheduler)]
-     (reify
-       CredentialsProvider
-       (fetch [_] (or @credentials (auto-refresh!)))
-       Stoppable
-       (-stop [_]
-         (-stop provider)
-         (.shutdownNow ^ScheduledExecutorService scheduler))))))
-
-(defn stop
-  "Stop auto-refreshing the credentials.
-
-  Alpha. Subject to change."
-  [credentials]
-  (-stop credentials)
-  nil)
-
-(defn ^:skip-wiki valid-credentials
-  "For internal use. Don't call directly."
-  ([credentials]
-   (valid-credentials credentials nil))
-  ([{:keys [aws/access-key-id aws/secret-access-key] :as credentials}
-    credential-source]
-   (cond (and (not (str/blank? access-key-id))
-              (not (str/blank? secret-access-key)))
-         credentials
-
-         (or (str/blank? access-key-id) (str/blank? secret-access-key))
-         (do
-           (when-not (nil? credential-source)
-             (log/debug (str "Unable to fetch credentials from " credential-source ".")))
-           nil)
-
-         :else
-         nil)))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;; Providers
-
-(defn chain-credentials-provider
-  "Chain together multiple credentials provider.
-
-  Calls each provider in order until one return a non-nil result. This
-  provider is then cached for future calls to `fetch`.
-
-  Returns nil if none of the providers return credentials.
-
-  Alpha. Subject to change."
-  [providers]
-  (let [cached-provider (atom nil)]
-    (reify
-      CredentialsProvider
-      (fetch [_]
-        (valid-credentials
-         (if @cached-provider
-           (fetch @cached-provider)
-           (some (fn [provider]
-                   (when-let [creds (fetch provider)]
-                     (reset! cached-provider provider)
-                     creds))
-                 providers))
-         "any source"))
-      Stoppable
-      (-stop [_] (run! -stop providers)))))
-
-(defn environment-credentials-provider
-  "Return the credentials from the environment variables.
-
-  Look at the following variables:
-  * AWS_ACCESS_KEY_ID      required
-  * AWS_SECRET_ACCESS_KEY  required
-  * AWS_SESSION_TOKEN      optional
-
-  Returns nil if any of the required variables is blank.
-
-  Logs error if one required variable is blank but the other
-  is not.
-
-  Alpha. Subject to change."
-  []
-  (reify CredentialsProvider
-    (fetch [_]
-      (valid-credentials
-       {:aws/access-key-id     (u/getenv "AWS_ACCESS_KEY_ID")
-        :aws/secret-access-key (u/getenv "AWS_SECRET_ACCESS_KEY")
-        :aws/session-token     (u/getenv "AWS_SESSION_TOKEN")}
-       "environment variables"))))
-
-(defn system-property-credentials-provider
-  "Return the credentials from the system properties.
-
-  Look at the following properties:
-  * aws.accessKeyId  required
-  * aws.secretKey    required
-
-  Returns nil if any of the required properties is blank.
-
-  Logs error if one of the required properties is blank but
-  the other is not.
-
-  Alpha. Subject to change. "
-  []
-  (reify CredentialsProvider
-    (fetch [_]
-      (valid-credentials
-       {:aws/access-key-id     (u/getProperty "aws.accessKeyId")
-        :aws/secret-access-key (u/getProperty "aws.secretKey")}
-       "system properties"))))
-
-(defn profile-credentials-provider
-  "Return credentials in an AWS configuration profile.
-
-  Arguments:
-
-  profile-name  string  The name of the profile in the file. (default: default)
-  f             File    The profile configuration file. (default: ~/.aws/credentials)
-
-  https://docs.aws.amazon.com/sdk-for-java/v1/developer-guide/credentials.html
-    Parsed properties:
-
-    aws_access_key        required
-    aws_secret_access_key required
-    aws_session_token     optional
-
-  Alpha. Subject to change."
-  ([]
-   (profile-credentials-provider (or (u/getenv "AWS_PROFILE")
-                                     (u/getProperty "aws.profile")
-                                     "default")))
-  ([profile-name]
-   (profile-credentials-provider profile-name (or (io/file (u/getenv "AWS_CREDENTIAL_PROFILES_FILE"))
-                                                  (io/file (u/getProperty "user.home") ".aws" "credentials"))))
-  ([profile-name ^File f]
-   (reify CredentialsProvider
-     (fetch [_]
-       (when (.exists f)
-         (try
-           (let [profile (get (config/parse f) profile-name)]
-             (valid-credentials
-              {:aws/access-key-id     (get profile "aws_access_key_id")
-               :aws/secret-access-key (get profile "aws_secret_access_key")
-               :aws/session-token     (get profile "aws_session_token")}
-              "aws profiles file"))
-           (catch Throwable t
-             (log/error t "Error fetching credentials from aws profiles file"))))))))
-
-(defn ^:skip-wiki calculate-ttl
-  "For internal use. Don't call directly."
-  [credentials]
-  (if-let [expiration (some-> credentials :Expiration Instant/parse)]
-    (max (- (.getSeconds (Duration/between (Instant/now) ^Instant expiration)) 300)
-         60)
-    3600))
-
-(defn container-credentials-provider
-  "For internal use. Do not call directly.
-
-  Return credentials from ECS iff one of
-  AWS_CONTAINER_CREDENTIALS_RELATIVE_URI or
-  AWS_CONTAINER_CREDENTIALS_FULL_URI is set.
-
-  Alpha. Subject to change."
-  [http-client]
-  (auto-refreshing-credentials
-   (reify CredentialsProvider
-     (fetch [_]
-       (when-let [creds (ec2/container-credentials http-client)]
-         (valid-credentials
-          {:aws/access-key-id     (:AccessKeyId creds)
-           :aws/secret-access-key (:SecretAccessKey creds)
-           :aws/session-token     (:Token creds)
-           ::ttl                  (calculate-ttl creds)}
-          "ecs container"))))))
-
-(defn instance-profile-credentials-provider
-  "For internal use. Do not call directly.
-
-  Return credentials from EC2 metadata service iff neither of
-  AWS_CONTAINER_CREDENTIALS_RELATIVE_URI or
-  AWS_CONTAINER_CREDENTIALS_FULL_URI
-  is set.
-
-  Alpha. Subject to change."
-  [http-client]
-  (auto-refreshing-credentials
-   (reify CredentialsProvider
-     (fetch [_]
-       (when-let [creds (ec2/instance-credentials http-client)]
-         (valid-credentials
-          {:aws/access-key-id     (:AccessKeyId creds)
-           :aws/secret-access-key (:SecretAccessKey creds)
-           :aws/session-token     (:Token creds)
-           ::ttl                  (calculate-ttl creds)}
-          "ec2 instance"))))))
-
-(defn default-credentials-provider
-  "Return a chain-credentials-provider comprising, in order:
-
-    environment-credentials-provider
-    system-property-credentials-provider
-    profile-credentials-provider
-    container-credentials-provider
-    instance-profile-credentials-provider
-
-  Alpha. Subject to change."
-  [http-client]
-  (chain-credentials-provider
-   [(environment-credentials-provider)
-    (system-property-credentials-provider)
-    (profile-credentials-provider)
-    (container-credentials-provider http-client)
-    (instance-profile-credentials-provider http-client)]))
-
-(defn basic-credentials-provider
-  "Given a map with :access-key-id and :secret-access-key,
-  returns an implementation of CredentialsProvider which returns
-  those credentials on fetch.
-
-  Alpha. Subject to change."
-  [{:keys [access-key-id secret-access-key]}]
-  (assert access-key-id "Missing")
-  (assert secret-access-key "Missing")
-  (reify CredentialsProvider
-    (fetch [_]
-      {:aws/access-key-id     access-key-id
-       :aws/secret-access-key secret-access-key})))
diff --git a/src/cognitect/aws/dynaload.clj b/src/cognitect/aws/dynaload.clj
deleted file mode 100644
index ec263fcf..00000000
--- a/src/cognitect/aws/dynaload.clj
+++ /dev/null
@@ -1,15 +0,0 @@
-(ns ^:skip-wiki cognitect.aws.dynaload)
-
-(defonce ^:private dynalock (Object.))
-
-(defn load-ns [ns]
-  (locking dynalock
-    (require (symbol ns))))
-
-(defn load-var
-  [s]
-  (let [ns (namespace s)]
-    (assert ns)
-    (load-ns ns)
-    (or (resolve s)
-        (throw (RuntimeException. (str "Var " s " is not on the classpath"))))))
diff --git a/src/cognitect/aws/ec2_metadata_utils.clj b/src/cognitect/aws/ec2_metadata_utils.clj
deleted file mode 100644
index 481005de..00000000
--- a/src/cognitect/aws/ec2_metadata_utils.clj
+++ /dev/null
@@ -1,92 +0,0 @@
-;; Copyright (c) Cognitect, Inc.
-;; All rights reserved.
-
-(ns ^:skip-wiki cognitect.aws.ec2-metadata-utils
-  "Impl, don't call directly"
-  (:require [clojure.string :as str]
-            [clojure.data.json :as json]
-            [clojure.core.async :as a]
-            [cognitect.aws.http :as http]
-            [cognitect.aws.util :as u]
-            [cognitect.aws.retry :as retry])
-  (:import (java.net URI)))
-
-(def ^:const ec2-metadata-service-override-system-property "com.amazonaws.sdk.ec2MetadataServiceEndpointOverride")
-(def ^:const dynamic-data-root "/latest/dynamic/")
-(def ^:const security-credentials-path "/latest/meta-data/iam/security-credentials/")
-(def ^:const instance-identity-document "instance-identity/document")
-(def ^:const allowed-hosts #{"127.0.0.1" "localhost"})
-
-;; ECS
-(def ^:const container-credentials-relative-uri-env-var "AWS_CONTAINER_CREDENTIALS_RELATIVE_URI")
-(def ^:const container-credentials-full-uri-env-var "AWS_CONTAINER_CREDENTIALS_FULL_URI")
-
-(def ^:const ec2-metadata-host "http://169.254.169.254")
-(def ^:const ecs-metadata-host "http://169.254.170.2")
-
-(defn in-container? []
-  (or (u/getenv container-credentials-relative-uri-env-var)
-      (u/getenv container-credentials-full-uri-env-var)))
-
-(defn build-path [& components]
-  (str/replace (str/join \/ components) #"\/\/+" (constantly "/")))
-
-(defn- build-uri
-  [host path]
-  (str host "/" (cond-> path (str/starts-with? path "/") (subs 1))))
-
-(defn get-host-address
-  "Gets the EC2 (or ECS) metadata host address"
-  []
-  (or (u/getProperty ec2-metadata-service-override-system-property)
-      (when (in-container?) ecs-metadata-host)
-      ec2-metadata-host))
-
-(defn- request-map
-  [^URI uri]
-  {:scheme (.getScheme uri)
-   :server-name (.getHost uri)
-   :server-port (or (when (pos? (.getPort uri)) (.getPort uri)) (when (= (.getScheme uri) :https) 443) 80)
-   :uri (.getPath uri)
-   :request-method :get
-   :headers {:accept "*/*"}})
-
-(defn get-data [uri http-client]
-  (let [response (a/<!! (retry/with-retry
-                          #(http/submit http-client (request-map (URI. uri)))
-                          (a/promise-chan)
-                          retry/default-retriable?
-                          retry/default-backoff))]
-    ;; TODO: handle unhappy paths -JS
-    (when (= 200 (:status response))
-      (u/bbuf->str (:body response)))))
-
-(defn get-data-at-path [path http-client]
-  (get-data (build-uri (get-host-address) path) http-client))
-
-(defn get-listing [uri http-client]
-  (some-> (get-data uri http-client) str/split-lines))
-
-(defn get-listing-at-path [path http-client]
-  (get-listing (build-uri (get-host-address) path) http-client))
-
-(defn get-ec2-instance-data [http-client]
-  (some-> (build-path dynamic-data-root instance-identity-document)
-          (get-data-at-path http-client)
-          (json/read-str :key-fn keyword)))
-
-(defn get-ec2-instance-region
-  [http-client]
-  (:region (get-ec2-instance-data http-client)))
-
-(defn container-credentials [http-client]
-  (let [endpoint (or (when-let [path (u/getenv container-credentials-relative-uri-env-var)]
-                       (str (get-host-address) path))
-                     (u/getenv container-credentials-full-uri-env-var))]
-    (some-> endpoint (get-data http-client) (json/read-str :key-fn keyword))))
-
-(defn instance-credentials [http-client]
-  (when (not (in-container?))
-    (when-let [cred-name (first (get-listing-at-path security-credentials-path http-client))]
-      (some-> (get-data-at-path (str security-credentials-path cred-name) http-client)
-              (json/read-str :key-fn keyword)))))
diff --git a/src/cognitect/aws/endpoint.clj b/src/cognitect/aws/endpoint.clj
index 2c2f89e0..10d1b950 100644
--- a/src/cognitect/aws/endpoint.clj
+++ b/src/cognitect/aws/endpoint.clj
@@ -5,7 +5,6 @@
   "Impl, don't call directly."
   (:refer-clojure :exclude [resolve])
   (:require [clojure.string :as str]
-            [clojure.java.io :as io]
             [clojure.edn :as edn]
             [cognitect.aws.service :as service]
             [cognitect.aws.util :as util]))
diff --git a/src/cognitect/aws/http.clj b/src/cognitect/aws/http.clj
deleted file mode 100644
index 891c4b0a..00000000
--- a/src/cognitect/aws/http.clj
+++ /dev/null
@@ -1,84 +0,0 @@
-(ns ^:skip-wiki cognitect.aws.http
-  "Impl, don't call directly."
-  (:require [clojure.edn :as edn]
-            [clojure.core.async :as a]
-            [cognitect.aws.dynaload :as dynaload]))
-
-(defprotocol HttpClient
-  (-submit [_ request channel]
-    "Submit an http request, channel will be filled with response. Returns ch.
-
-     Request map:
-
-     :scheme                 :http or :https
-     :server-name            string
-     :server-port            integer
-     :uri                    string
-     :query-string           string, optional
-     :request-method         :get/:post/:put/:head/:delete
-     :headers                map from downcased string to string
-     :body                   ByteBuffer, optional
-     :timeout-msec           opt, total request send/receive timeout
-     :meta                   opt, data to be added to the response map
-
-     content-type must be specified in the headers map
-     content-length is derived from the ByteBuffer passed to body
-
-     Response map:
-
-     :status            integer HTTP status code
-     :body              ByteBuffer, optional
-     :headers           map from downcased string to string
-     :meta              opt, data from the request
-
-     On error, response map is per cognitect.anomalies.
-
-     Alpha. This will absolutely change.")
-  (-stop [_] "Stops the client, releasing resources"))
-
-(defn submit
-  ([client request]
-   (-submit client request (a/chan 1)))
-  ([client request channel]
-   (-submit client request channel)))
-
-(defn stop
-  [client]
-  (-stop client))
-
-(defn client?
-  [c]
-  (satisfies? HttpClient c))
-
-(defn read-config
-  [url]
-  (-> url slurp edn/read-string))
-
-;; TODO consider providing config arguments to http constructor
-(defn- configured-client
-  "If a single cognitect_aws_http.edn is found on the classpath,
-  returns the symbol bound to :constructor-var.
-
-  Throws if 0 or > 1 cognitect_aws_http.edn files are found.
-  "
-  []
-  (let [cl   (.. Thread currentThread getContextClassLoader)
-        cfgs (enumeration-seq (.getResources cl "cognitect_aws_http.edn"))]
-    (case (count cfgs)
-      0 (throw (RuntimeException. "Could not find cognitect_aws_http.edn on classpath."))
-      1 (-> cfgs first read-config :constructor-var)
-
-      (throw (ex-info "Found too many http-client cfgs. Pick one." {:config cfgs})))))
-
-(defn resolve-http-client
-  [http-client-or-sym]
-  (let [c (or (when (symbol? http-client-or-sym)
-                (let [ctor @(dynaload/load-var http-client-or-sym)]
-                  (ctor)))
-              http-client-or-sym
-              (let [ctor @(dynaload/load-var (configured-client))]
-                (ctor)))]
-    (when-not (client? c)
-      (throw (ex-info "not an http client" {:provided http-client-or-sym
-                                            :resolved c})))
-    c))
diff --git a/src/cognitect/aws/http/cognitect.clj b/src/cognitect/aws/http/cognitect.clj
deleted file mode 100644
index 6bb7d5ab..00000000
--- a/src/cognitect/aws/http/cognitect.clj
+++ /dev/null
@@ -1,12 +0,0 @@
-(ns ^:skip-wiki cognitect.aws.http.cognitect
-  (:require [cognitect.http-client :as impl]
-            [cognitect.aws.http :as aws]))
-
-(defn create
-  []
-  (let [c (impl/create {:trust-all true})]  ;; FIX :trust-all
-    (reify aws/HttpClient
-      (-submit [_ request channel]
-        (impl/submit c request channel))
-      (-stop [_]
-        (impl/stop c)))))
diff --git a/src/cognitect/aws/interceptors.clj b/src/cognitect/aws/interceptors.clj
deleted file mode 100644
index e4faed1a..00000000
--- a/src/cognitect/aws/interceptors.clj
+++ /dev/null
@@ -1,34 +0,0 @@
-;; Copyright (c) Cognitect, Inc.
-;; All rights reserved.
-
-(ns ^:skip-wiki cognitect.aws.interceptors
-  "Impl, don't call directly."
-  (:require [cognitect.aws.service :as service]
-            [cognitect.aws.util :as util]))
-
-(defmulti modify-http-request (fn [service op-map http-request]
-                                (service/service-name service)))
-
-(defmethod modify-http-request :default [service op-map http-request] http-request)
-
-(def md5-blacklist
-  "Set of ops that should not get the Content-MD5 header.
-
-  See https://github.com/aws/aws-sdk-java-v2/blob/master/services/s3/src/main/java/software/amazon/awssdk/services/s3/internal/handlers/AddContentMd5HeaderInterceptor.java "
-  #{:PutObject :UploadPart})
-
-(defmethod modify-http-request "s3" [service op-map http-request]
-  (if (and (= "md5" (get-in service [:metadata :checksumFormat]))
-           (not (md5-blacklist (:op op-map)))
-           (:body http-request))
-    (update http-request :headers assoc "Content-MD5" (-> http-request :body util/md5 util/base64-encode))
-    http-request))
-
-(defmethod modify-http-request "apigatewaymanagementapi" [service op-map http-request]
-  (if (= :PostToConnection (:op op-map))
-    (update http-request :uri #(str % (-> op-map :request :ConnectionId)))
-    http-request))
-
-;; See https://github.com/aws/aws-sdk-java-v2/blob/985ec92c0dfac868b33791fe4623296c68e2feab/services/glacier/src/main/java/software/amazon/awssdk/services/glacier/internal/GlacierExecutionInterceptor.java#L40
-(defmethod modify-http-request "glacier" [service op-map http-request]
-  (assoc-in http-request [:headers "x-amz-glacier-version"] (get-in service [:metadata :apiVersion])))
diff --git a/src/cognitect/aws/protocols/common.clj b/src/cognitect/aws/protocols/common.cljc
similarity index 100%
rename from src/cognitect/aws/protocols/common.clj
rename to src/cognitect/aws/protocols/common.cljc
diff --git a/src/cognitect/aws/protocols/ec2.clj b/src/cognitect/aws/protocols/ec2.cljc
similarity index 100%
rename from src/cognitect/aws/protocols/ec2.clj
rename to src/cognitect/aws/protocols/ec2.cljc
diff --git a/src/cognitect/aws/protocols/json.clj b/src/cognitect/aws/protocols/json.cljc
similarity index 100%
rename from src/cognitect/aws/protocols/json.clj
rename to src/cognitect/aws/protocols/json.cljc
diff --git a/src/cognitect/aws/protocols/query.clj b/src/cognitect/aws/protocols/query.cljc
similarity index 100%
rename from src/cognitect/aws/protocols/query.clj
rename to src/cognitect/aws/protocols/query.cljc
diff --git a/src/cognitect/aws/protocols/rest.clj b/src/cognitect/aws/protocols/rest.cljc
similarity index 100%
rename from src/cognitect/aws/protocols/rest.clj
rename to src/cognitect/aws/protocols/rest.cljc
diff --git a/src/cognitect/aws/protocols/rest_json.clj b/src/cognitect/aws/protocols/rest_json.cljc
similarity index 100%
rename from src/cognitect/aws/protocols/rest_json.clj
rename to src/cognitect/aws/protocols/rest_json.cljc
diff --git a/src/cognitect/aws/protocols/rest_xml.clj b/src/cognitect/aws/protocols/rest_xml.cljc
similarity index 100%
rename from src/cognitect/aws/protocols/rest_xml.clj
rename to src/cognitect/aws/protocols/rest_xml.cljc
diff --git a/src/cognitect/aws/region.clj b/src/cognitect/aws/region.clj
deleted file mode 100644
index 42452e4a..00000000
--- a/src/cognitect/aws/region.clj
+++ /dev/null
@@ -1,110 +0,0 @@
-;; Copyright (c) Cognitect, Inc.
-;; All rights reserved.
-
-(ns cognitect.aws.region
-  "Region providers. Primarily for internal use, and subject to change."
-  (:require [clojure.string :as str]
-            [clojure.java.io :as io]
-            [clojure.tools.logging :as log]
-            [cognitect.aws.util :as u]
-            [cognitect.aws.config :as config]
-            [cognitect.aws.ec2-metadata-utils :as ec2])
-  (:import [java.io File]))
-
-(defn ^:skip-wiki valid-region
-  "For internal use. Don't call directly.
-
-  Return the credential region if valid, otherwise nil."
-  [region]
-  ;; TODO: (dchelimsky 2018-07-27) maybe validate this against known regions?
-  (when-not (str/blank? region) region))
-
-(defprotocol RegionProvider
-  (fetch [_] "Returns the region found by this provider, or nil."))
-
-(defn chain-region-provider
-  "Chain together multiple region providers.
-
-  Calls each provider in order until one return a non-nil result.
-
-  Returns nil if none of the providers return a region.
-
-  Alpha. Subject to change."
-  [providers]
-  (reify RegionProvider
-    (fetch [_]
-      (or (valid-region (some fetch providers))
-          (throw (ex-info "No region found by any region provider."
-                          {:providers (map class providers)}))))))
-
-(defn environment-region-provider
-  "Return the region from the AWS_REGION env var, or nil if not present.
-
-  Alpha. Subject to change."
-  []
-  (reify RegionProvider
-    (fetch [_] (valid-region (u/getenv "AWS_REGION")))))
-
-(defn system-property-region-provider
-  "Return the region from the aws.region system property, or nil if not present.
-
-  Alpha. Subject to change."
-  []
-  (reify RegionProvider
-    (fetch [_] (valid-region (u/getProperty "aws.region")))))
-
-(defn profile-region-provider
-  "Return the region in a AWS configuration profile.
-
-  Arguments:
-
-    f             File    The profile configuration file. (default: ~/.aws/config)
-    profile-name  string  The name of the profile in the file. (default: default)
-
-  Parsed properties:
-
-    region        required
-
-  Alpha. Subject to change."
-  ([]
-   (profile-region-provider (or (u/getenv "AWS_PROFILE")
-                                (u/getProperty "aws.profile")
-                                "default")))
-  ([profile-name]
-   (profile-region-provider profile-name (or (io/file (u/getenv "AWS_CONFIG_FILE"))
-                                             (io/file (u/getProperty "user.home") ".aws" "config"))))
-  ([profile-name ^File f]
-   (reify RegionProvider
-     (fetch [_]
-       (when (.exists f)
-        (try
-          (let [profile (get (config/parse f) profile-name)]
-            (valid-region (get profile "region")))
-          (catch Throwable t
-            (log/error t "Unable to fetch region from the AWS config file " (str f)))))))))
-
-(defn instance-region-provider
-  "Return the region from the ec2 instance's metadata service,
-  or nil if the service can not be found.
-
-  Alpha. Subject to change."
-  [http-client]
-  (reify RegionProvider
-    (fetch [_] (valid-region (ec2/get-ec2-instance-region http-client)))))
-
-
-(defn default-region-provider
-  "Return a chain-region-provider comprising, in order:
-
-    environment-region-provider
-    system-property-region-provider
-    profile-region-provider
-    instance-region-provider
-
-  Alpha. Subject to change."
-  [http-client]
-  (chain-region-provider
-   [(environment-region-provider)
-    (system-property-region-provider)
-    (profile-region-provider)
-    (instance-region-provider http-client)]))
diff --git a/src/cognitect/aws/retry.clj b/src/cognitect/aws/retry.cljc
similarity index 100%
rename from src/cognitect/aws/retry.clj
rename to src/cognitect/aws/retry.cljc
diff --git a/src/cognitect/aws/service.clj b/src/cognitect/aws/service.cljc
similarity index 71%
rename from src/cognitect/aws/service.clj
rename to src/cognitect/aws/service.cljc
index 1014e0d5..a5e0487a 100644
--- a/src/cognitect/aws/service.clj
+++ b/src/cognitect/aws/service.cljc
@@ -6,7 +6,7 @@
   (:require [clojure.string :as str]
             [clojure.walk :as walk]
             [clojure.edn :as edn]
-            [clojure.java.io :as io]
+            #?(:clj [clojure.java.io :as io])
             [cognitect.aws.shape :as shape]))
 
 (def base-ns "cognitect.aws")
@@ -16,19 +16,22 @@
 (defn descriptor-resource-path [service-name]
   (str base-resource-path "/" service-name "/service.edn"))
 
-(defn descriptor-resource [service-name]
-  (io/resource (descriptor-resource-path service-name)))
-
-(defn read-service-description
-  "Return service description readerable source (anything supported by
-  clojure.java.io/reader)."
-  [readerable]
-  (edn/read-string (slurp readerable)))
-
-(defn service-description [service-name]
-  (if-let [resource (descriptor-resource service-name)]
-    (read-service-description resource)
-    (throw (ex-info (str "Cannot find resource " (descriptor-resource-path service-name) ".") {}))))
+#?(:clj
+  (do
+    (defn descriptor-resource [service-name]
+      (io/resource (descriptor-resource-path service-name)))
+    
+    (defn read-service-description
+      "Return service description readerable source (anything supported by
+      clojure.java.io/reader)."
+      [readerable]
+      (edn/read-string (slurp readerable)))
+
+    (defn service-description [service-name]
+      (if-let [resource (descriptor-resource service-name)]
+        (read-service-description resource)
+        (throw (ex-info (str "Cannot find resource " (descriptor-resource-path service-name) ".") {}))))
+   ))
 
 (defn shape
   "Returns the shape referred by `shape-ref`."
@@ -59,8 +62,9 @@
   [service]
   (symbol (format "%s.specs" (ns-prefix service))))
 
-(defn load-specs [service]
-  (require (spec-ns service)))
+#?(:clj
+  (defn load-specs [service]
+    (require (spec-ns service))))
 
 (defonce svc-docs (atom {}))
 
@@ -77,6 +81,7 @@
     (reset! ref-atom (:refs updated-doc))
     (assoc m op (into {:name (name op)} updated-doc))))
 
+
 (defn docs
   "Returns the docs for this service"
   [service]
@@ -101,10 +106,11 @@
   (when-let [shape-key (some->> service :operations op :input :shape)]
     (keyword (ns-prefix service) shape-key)))
 
-(defn response-spec-key
-  "Returns the key to look up in the spec registry for the spec for
-  the response body of op."
-  [service op]
-  (load-specs service)
-  (when-let [shape-key (some->> service :operations op :output :shape)]
-    (keyword (ns-prefix service) shape-key)))
+#?(:clj
+  (defn response-spec-key
+    "Returns the key to look up in the spec registry for the spec for
+    the response body of op."
+    [service op]
+    (load-specs service)
+    (when-let [shape-key (some->> service :operations op :output :shape)]
+      (keyword (ns-prefix service) shape-key))))
diff --git a/src/cognitect/aws/shape.clj b/src/cognitect/aws/shape.cljc
similarity index 93%
rename from src/cognitect/aws/shape.clj
rename to src/cognitect/aws/shape.cljc
index 6798f5a6..f7d7c09b 100644
--- a/src/cognitect/aws/shape.clj
+++ b/src/cognitect/aws/shape.cljc
@@ -20,7 +20,8 @@
   (:require [clojure.data.json :as json]
             [cognitect.aws.util :as util]))
 
-(set! *warn-on-reflection* true)
+#?(:clj
+  (set! *warn-on-reflection* true))
 
 ;; ----------------------------------------------------------------------------------------
 ;; Helpers to navigate shapes
@@ -78,22 +79,26 @@
      "unixTimestamp" (util/format-timestamp data)
      (default-format-fn data))))
 
+(defn ->date [^long x]
+  #?(:clj (java.util.Date. x)
+     :cljs (js/Date. x)))
+
 (defn parse-date
   [shape data]
   (condp = (:timestampFormat shape)
     "rfc822"  (util/parse-date util/rfc822-date-format data)
     "iso8601" (util/parse-date util/iso8601-date-format data)
     (cond (int? data)
-          (java.util.Date. (* 1000 ^int data))
+          (->date (* 1000 (long ^int data)))
           (double? data)
-          (java.util.Date. (* 1000 (long data)))
+          (->date (* 1000 (long data)))
           (re-matches #"^\d+$" data)
-          (java.util.Date. (* 1000 (long (read-string data))))
+          (->date (* 1000 (long (clojure.edn/read-string data))))
           :else
           (->> [util/iso8601-date-format
                 util/iso8601-msecs-date-format
                 util/rfc822-date-format]
-               (map #(try (util/parse-date % data) (catch java.text.ParseException _ nil)))
+               (map #(try (util/parse-date % data) (catch #?(:clj java.text.ParseException :cljs :default) _ nil)))
                (filter identity)
                first))))
 
@@ -169,7 +174,7 @@
 
 (defmethod json-serialize* "timestamp"
   [shape data]
-  (format-date shape data (comp read-string util/format-timestamp)))
+  (format-date shape data (comp clojure.edn/read-string util/format-timestamp)))
 
 (defmethod json-serialize* "structure"
   [shape data]
@@ -396,10 +401,19 @@
 (defmethod xml-parse* "string"    [_ nodes] (or (data nodes) ""))
 (defmethod xml-parse* "character" [_ nodes] (or (data nodes) ""))
 (defmethod xml-parse* "boolean"   [_ nodes] (= (data nodes) "true"))
-(defmethod xml-parse* "double"    [_ nodes] (Double/parseDouble ^String (data nodes)))
-(defmethod xml-parse* "float"     [_ nodes] (Double/parseDouble ^String (data nodes)))
-(defmethod xml-parse* "long"      [_ nodes] (Long/parseLong ^String (data nodes)))
-(defmethod xml-parse* "integer"   [_ nodes] (Long/parseLong ^String (data nodes)))
+
+(defn parse-double [x]
+  #?(:clj (Double/parseDouble ^String x)
+     :cljs (js/parseFloat x)))
+
+(defn parse-long [x]
+  #?(:clj (Long/parseLong ^String x)
+     :cljs (js/parseInt x)))
+
+(defmethod xml-parse* "double"    [_ nodes] (parse-double (data nodes)))
+(defmethod xml-parse* "float"     [_ nodes] (parse-double (data nodes)))
+(defmethod xml-parse* "long"      [_ nodes] (parse-long (data nodes)))
+(defmethod xml-parse* "integer"   [_ nodes] (parse-long (data nodes)))
 (defmethod xml-parse* "blob"      [_ nodes] (util/base64-decode (data nodes)))
 (defmethod xml-parse* "timestamp"
   [shape nodes]
diff --git a/src/cognitect/aws/signers.clj b/src/cognitect/aws/signers.cljc
similarity index 84%
rename from src/cognitect/aws/signers.clj
rename to src/cognitect/aws/signers.cljc
index 56023254..fb388bac 100644
--- a/src/cognitect/aws/signers.clj
+++ b/src/cognitect/aws/signers.cljc
@@ -7,10 +7,11 @@
             [cognitect.aws.client :as client]
             [cognitect.aws.service :as service]
             [cognitect.aws.util :as util])
-  (:import [java.net URI]
-           [java.net URLDecoder]))
+  #?(:clj (:import [java.net URI]
+                   [java.net URLDecoder])
+     :cljs (:import [google.Uri])))
 
-(set! *warn-on-reflection* true)
+#?(:clj (set! *warn-on-reflection* true))
 
 (defn uri-encode
   "Escape (%XX) special characters in the string `s`.
@@ -22,18 +23,19 @@
    (when s
      (uri-encode s "")))
   ([^String s extra-chars]
-   (when s
-     (let [safe-chars (->> extra-chars
-                           (into #{\_ \- \~ \.})
-                           (into #{} (map int)))
-           builder    (StringBuilder.)]
-       (doseq [b (.getBytes s "UTF-8")]
-         (.append builder
-                  (if (or (Character/isLetterOrDigit ^int b)
-                          (contains? safe-chars b))
-                    (char b)
-                    (format "%%%02X" b))))
-       (.toString builder)))))
+   #?(:clj (when s
+             (let [safe-chars (->> extra-chars
+                                   (into #{\_ \- \~ \.})
+                                   (into #{} (map int)))
+                   builder    (StringBuilder.)]
+               (doseq [b (.getBytes s "UTF-8")]
+                 (.append builder
+                          (if (or (Character/isLetterOrDigit ^int b)
+                                  (contains? safe-chars b))
+                            (char b)
+                            (format "%%%02X" b))))
+               (.toString builder)))
+      :cljs (js/encodeURI uri))))
 
 (defn credential-scope
   [{:keys [region service] :as auth-info} request]
@@ -48,14 +50,16 @@
   [{:keys [request-method]}]
   (-> request-method name str/upper-case))
 
+(defn- uri-path [uri]
+  #?(:clj (.. (URI. uri) normalize getPath)
+     :cljs (.. (google.Uri. uri) getPath)))
+
 (defn- canonical-uri
   [{:keys [uri]}]
   (let [encoded-path (-> uri
                          (str/replace #"//+" "/") ; (URI.) throws Exception on '//'.
                          (str/replace #"\s" "%20"); (URI.) throws Exception on space.
-                         (URI.)
-                         (.normalize)
-                         (.getPath)
+                         (uri-path)
                          (uri-encode "/"))]
     (if (.isEmpty ^String encoded-path)
       "/"
@@ -69,7 +73,7 @@
            (map #(str/split % #"=" 2))
            ;; TODO (dchelimsky 2019-01-30) decoding first because sometimes
            ;; it's already been encoding. Look into avoiding that!
-           (map (fn [kv] (map #(uri-encode (URLDecoder/decode %)) kv)))
+           (map (fn [kv] (map #(uri-encode #?(:clj (URLDecoder/decode %) :cljs (js/decodeURI %))) kv)))
            (sort (fn [[k1 v1] [k2 v2]]
                    (if (= k1 k2)
                      (compare v1 v2)
diff --git a/src/cognitect/aws/util.clj b/src/cognitect/aws/util.clj
deleted file mode 100644
index fda770bb..00000000
--- a/src/cognitect/aws/util.clj
+++ /dev/null
@@ -1,292 +0,0 @@
-;; Copyright (c) Cognitect, Inc.
-;; All rights reserved.
-
-(ns ^:skip-wiki cognitect.aws.util
-  "Impl, don't call directly."
-  (:require [clojure.string :as str]
-            [clojure.data.xml :as xml]
-            [clojure.data.json :as json]
-            [clojure.java.io :as io])
-  (:import [java.text SimpleDateFormat]
-           [java.util Date TimeZone]
-           [java.util UUID]
-           [java.io InputStream]
-           [java.nio.charset Charset]
-           [java.security MessageDigest]
-           [javax.crypto Mac]
-           [javax.crypto.spec SecretKeySpec]
-           [java.nio ByteBuffer]
-           [java.io ByteArrayInputStream ByteArrayOutputStream]
-           [java.net URLEncoder]
-           [java.util Base64]))
-
-(set! *warn-on-reflection* true)
-
-(defn ^ThreadLocal date-format
-  "Return a thread-safe GMT date format that can be used with `format-date` and `parse-date`.
-
-  See http://bugs.sun.com/bugdatabase/view_bug.do?bug_id=4228335"
-  [^String fmt]
-  (proxy [ThreadLocal] []
-    (initialValue []
-      (doto (SimpleDateFormat. fmt)
-        (.setTimeZone (TimeZone/getTimeZone "GMT"))))))
-
-(defn format-date
-  ([fmt]
-   (format-date fmt (Date.)))
-  ([^ThreadLocal fmt inst]
-   (.format ^SimpleDateFormat (.get fmt) inst)))
-
-(defn format-timestamp
-  "Format a timestamp in milliseconds."
-  [inst]
-  (str (long (/ (.getTime ^Date inst) 1000))))
-
-(defn parse-date
-  [^ThreadLocal fmt s]
-  (.parse ^SimpleDateFormat (.get fmt) s))
-
-(def ^ThreadLocal x-amz-date-format
-  (date-format "yyyyMMdd'T'HHmmss'Z'"))
-
-(def ^ThreadLocal x-amz-date-only-format
-  (date-format "yyyyMMdd"))
-
-(def ^ThreadLocal iso8601-date-format
-  (date-format "yyyy-MM-dd'T'HH:mm:ssXXX"))
-
-(def ^ThreadLocal iso8601-msecs-date-format
-  (date-format "yyyy-MM-dd'T'HH:mm:ss.SSS'Z'"))
-
-(def ^ThreadLocal rfc822-date-format
-  (date-format "EEE, dd MMM yyyy HH:mm:ss z"))
-
-(let [hex-chars (char-array [\0 \1 \2 \3 \4 \5 \6 \7 \8 \9 \a \b \c \d \e \f])]
-  (defn hex-encode
-    [^bytes bytes]
-    (let [bl (alength bytes)
-          ca (char-array (* 2 bl))]
-      (loop [i (int 0)
-             c (int 0)]
-        (if (< i bl)
-          (let [b (long (bit-and (long (aget bytes i)) 255))]
-            (aset ca c ^char (aget hex-chars (unsigned-bit-shift-right b 4)))
-            (aset ca (unchecked-inc-int c) (aget hex-chars (bit-and b 15)))
-            (recur (unchecked-inc-int i) (unchecked-add-int c 2)))
-          (String. ca))))))
-
-(defn sha-256
-  "Returns the sha-256 digest (bytes) of data, which can be a
-  byte-array, an input-stream, or nil, in which case returns the
-  sha-256 of the empty string."
-  [data]
-  (cond (string? data)
-        (sha-256 (.getBytes ^String data "UTF-8"))
-        (instance? ByteBuffer data)
-        (sha-256 (.array ^ByteBuffer data))
-        :else
-        (let [digest (MessageDigest/getInstance "SHA-256")]
-          (when data
-            (.update digest ^bytes data))
-          (.digest digest))))
-
-(defn hmac-sha-256
-  [key ^String data]
-  (let [mac (Mac/getInstance "HmacSHA256")]
-    (.init mac (SecretKeySpec. key "HmacSHA256"))
-    (.doFinal mac (.getBytes data "UTF-8"))))
-
-(defn ^bytes input-stream->byte-array [is]
-  (let [os (ByteArrayOutputStream.)]
-    (io/copy is os)
-    (.toByteArray os)))
-
-(defn bbuf->bytes
-  [^ByteBuffer bbuf]
-  (when bbuf
-    (let [bytes (byte-array (.remaining bbuf))]
-      (.get (.duplicate bbuf) bytes)
-      bytes)))
-
-(defn bbuf->str
-  "Creates a string from java.nio.ByteBuffer object.
-   The encoding is fixed to UTF-8."
-  [^ByteBuffer bbuf]
-  (when-let [bytes (bbuf->bytes bbuf)]
-    (String. ^bytes bytes "UTF-8")))
-
-(defn bbuf->input-stream
-  [^ByteBuffer bbuf]
-  (when bbuf
-    (io/input-stream (bbuf->bytes bbuf))))
-
-(defprotocol BBuffable
-  (->bbuf [data]))
-
-(extend-protocol BBuffable
-  (class (byte-array 0))
-  (->bbuf [bs] (ByteBuffer/wrap bs))
-
-  String
-  (->bbuf [s] (->bbuf (.getBytes s "UTF-8")))
-
-  InputStream
-  (->bbuf [is] (->bbuf (input-stream->byte-array is)))
-
-  ByteBuffer
-  (->bbuf [bb] bb)
-
-  nil
-  (->bbuf [_]))
-
-(defn xml-read
-  "Parse the UTF-8 XML string."
-  [s]
-  (xml/parse (ByteArrayInputStream. (.getBytes ^String s "UTF-8"))
-             :namespace-aware false
-             :skip-whitespace true))
-
-(defn xml->map [element]
-  (cond
-    (nil? element)        nil
-    (string? element)     element
-    (sequential? element) (if (> (count element) 1)
-                            (into {} (map xml->map) element)
-                            (xml->map (first element)))
-    (map? element)
-    (cond
-      (empty? element) {}
-      (:attrs element) {(:tag element)                                (xml->map (:content element))
-                        (keyword (str (name (:tag element)) "Attrs")) (:attrs element)}
-      :else            {(:tag element) (xml->map  (:content element))})
-    :else                 nil))
-
-(defn error-code [response-body]
-  (let [error (some->> (tree-seq coll? #(if (map? %) (vals %) %) response-body)
-                       (filter :Error)
-                       first)]
-    (some-> error (get-in [:Error :Code]))))
-
-(defn xml-write
-  [e]
-  (if (instance? String e)
-    (print e)
-    (do
-      (print (str "<" (name (:tag e))))
-      (when (:attrs e)
-        (doseq [attr (:attrs e)]
-          (print (str " " (name (key attr)) "=\"" (val attr)"\""))))
-      (if-not (empty? (:content e))
-        (do
-          (print ">")
-          (doseq [c (:content e)]
-            (xml-write c))
-          (print (str "</" (name (:tag e)) ">")))
-        (print " />")))))
-
-(defn url-encode
-  "Percent encode the string to put in a URL."
-  [^String s]
-  (-> s
-      (URLEncoder/encode "UTF-8")
-      (.replace "+" "%20")))
-
-(defn query-string
-  "Create a query string from a list of parameters. Values must all be
-  strings."
-  [params]
-  (when-not (empty? params)
-    (str/join "&" (map (fn [[k v]]
-                         (str (url-encode (name k))
-                              "="
-                              (url-encode v)))
-                       params))))
-
-(defn read-json
-  "Read readable as JSON. readable can be any valid input for
-  clojure.java.io/reader."
-  [readable]
-  (json/read-str (slurp readable) :key-fn keyword))
-
-(defn map-vals
-  "Apply f to the values with the given keys, or all values if `ks` is not specified."
-  ([f m]
-   (map-vals f m (keys m)))
-  ([f m ks]
-   (into m
-         (for [[k v] (select-keys m ks)]
-           [k (f v)]))))
-
-(defprotocol Base64Encodable
-  (base64-encode [data]))
-
-(extend-protocol Base64Encodable
-  (class (byte-array 0))
-  (base64-encode [ba] (.encodeToString (Base64/getEncoder) ba))
-
-  ByteBuffer
-  (base64-encode [bb] (base64-encode (.array bb)))
-
-  java.lang.String
-  (base64-encode [s] (base64-encode (.getBytes s))))
-
-(defn base64-decode
-  "base64 decode a base64-encoded string to an input stream"
-  [s]
-  (io/input-stream (.decode (Base64/getDecoder) ^String s)))
-
-(defn encode-jsonvalue [data]
-  (base64-encode (.getBytes ^String (json/write-str data))))
-
-(defn parse-jsonvalue [data]
-  (-> data
-      base64-decode
-      io/reader
-      slurp
-      (json/read-str :key-fn keyword)))
-
-(def ^Charset UTF8 (Charset/forName "UTF-8"))
-
-(defn ^bytes md5
-  "returns an MD5 hash of the content of bb as a byte array"
-  [^ByteBuffer bb]
-  (let [ba     (.array bb)
-        hasher (MessageDigest/getInstance "MD5")]
-    (.update hasher ^bytes ba)
-    (.digest hasher)))
-
-(defn uuid-string
-  "returns a string representation of a randomly generated UUID"
-  []
-  (str (UUID/randomUUID)))
-
-(defn with-defaults
-  "Given a shape and data of that shape, add defaults for the
-  following required keys if they are missing or bound to nil
-
-      :idempotencyToken"
-  [shape data]
-  (reduce (fn [m [member-name member-spec]]
-            (cond
-              (not (nil? (get data member-name)))
-              m
-
-              (:idempotencyToken member-spec)
-              (assoc m member-name (uuid-string))
-
-              :else
-              m))
-          (or data {})
-          (:members shape)))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;; Wrappers - here to support testing with-redefs since
-;;;;            we can't redef static methods
-
-(defn getenv
-  ([] (System/getenv))
-  ([k] (System/getenv k)))
-
-(defn getProperty [k]
-  (System/getProperty k))
diff --git a/src/cognitect/aws/util.cljc b/src/cognitect/aws/util.cljc
new file mode 100644
index 00000000..addd01e4
--- /dev/null
+++ b/src/cognitect/aws/util.cljc
@@ -0,0 +1,383 @@
+;; Copyright (c) Cognitect, Inc.
+;; All rights reserved.
+
+(ns ^:skip-wiki cognitect.aws.util
+  "Impl, don't call directly."
+  (:require [clojure.string :as str]
+            [clojure.data.xml :as xml]
+            [clojure.data.json :as json]
+            #?(:clj
+               [clojure.java.io :as io])
+            #?(:cljs
+               [cljs-time.core :as cljs-time])
+            #?(:cljs
+               [cljs-time.format])
+            #?(:cljs
+               [cljs-time.coerce])
+
+
+            #?(:cljs
+              [goog.crypt.base64 :as base64 ;:refer [encodeString decodeString]
+               ])
+            #?(:cljs
+              [goog.crypt]))
+  #?(:clj
+     (:import [java.text SimpleDateFormat]
+              [java.util Date TimeZone]
+              [java.util UUID]
+              [java.io InputStream]
+              [java.nio.charset Charset]
+              [java.security MessageDigest]
+              [javax.crypto Mac]
+              [javax.crypto.spec SecretKeySpec]
+              [java.nio ByteBuffer]
+              [java.io ByteArrayInputStream ByteArrayOutputStream]
+              [java.net URLEncoder]
+              [java.util Base64]))
+  #?(:cljs
+     (:import [goog.crypt Sha256]
+              [goog.crypt Md5])))
+
+#?(:clj
+   (set! *warn-on-reflection* true))
+
+#?(:clj
+   (defn ^ThreadLocal date-format
+     "Return a thread-safe GMT date format that can be used with `format-date` and `parse-date`.
+
+  See http://bugs.sun.com/bugdatabase/view_bug.do?bug_id=4228335"
+     [^String fmt]
+     (proxy [ThreadLocal] []
+       (initialValue []
+         (doto (SimpleDateFormat. fmt)
+           (.setTimeZone (TimeZone/getTimeZone "GMT"))))))
+
+   :cljs
+   (defn date-format
+     [fmt]
+     (cljs-time.format/formatter fmt)))
+
+#?(:clj
+   (defn format-date
+     ([fmt]
+      (format-date fmt (Date.)))
+     ([^ThreadLocal fmt inst]
+      (.format ^SimpleDateFormat (.get fmt) inst)))
+   :cljs
+   (defn format-date
+     ([fmt]
+      (format-date fmt (cljs-time/now)))
+     ([^ThreadLocal fmt inst]
+      (cljs-time.format/unparse fmt inst))))
+
+(defn format-timestamp
+  "Format a timestamp in milliseconds."
+  [inst]
+  (str (long (/ #?(:clj (.getTime ^Date inst)
+                   :cljs (cljs-time.coerce/to-long 1000))))))
+
+#?(:clj
+   (defn parse-date
+     [^ThreadLocal fmt s]
+     (.parse ^SimpleDateFormat (.get fmt) s))
+   :cljs
+   (defn parse-date
+     [fmt s]
+     (cljs-time.format/parse fmt s)))
+
+(def ^ThreadLocal x-amz-date-format
+  (date-format "yyyyMMdd'T'HHmmss'Z'"))
+
+(def ^ThreadLocal x-amz-date-only-format
+  (date-format "yyyyMMdd"))
+
+(def ^ThreadLocal iso8601-date-format
+  (date-format "yyyy-MM-dd'T'HH:mm:ssXXX"))
+
+(def ^ThreadLocal iso8601-msecs-date-format
+  (date-format "yyyy-MM-dd'T'HH:mm:ss.SSS'Z'"))
+
+(def ^ThreadLocal rfc822-date-format
+  (date-format "EEE, dd MMM yyyy HH:mm:ss z"))
+
+#?(:cljs
+   (defn char-array [x]
+     (identity x)))
+
+(defn char-array->string [ca]
+  #?(:clj
+     (String. ca)
+     :cljs
+     (clojure.string/join nil ca)))
+
+(let [hex-chars (char-array [\0 \1 \2 \3 \4 \5 \6 \7 \8 \9 \a \b \c \d \e \f])]
+  (defn hex-encode
+    [^bytes bytes]
+    (let [bl (alength bytes)
+          ca (char-array (* 2 bl))]
+      (loop [i (int 0)
+             c (int 0)]
+        (if (< i bl)
+          (let [b (long (bit-and (long (aget bytes i)) 255))]
+            (aset ca c ^char (aget hex-chars (unsigned-bit-shift-right b 4)))
+            (aset ca (unchecked-inc-int c) (aget hex-chars (bit-and b 15)))
+            (recur (unchecked-inc-int i) (unchecked-add-int c 2)))
+          (char-array->string ca))))))
+
+
+(defn sha-256
+  "Returns the sha-256 digest (bytes) of data, which can be a
+  byte-array, an input-stream, or nil, in which case returns the
+  sha-256 of the empty string."
+  [data]
+  #?(:clj
+     (cond (string? data)
+           (sha-256 (.getBytes ^String data "UTF-8"))
+           (instance? ByteBuffer data)
+           (sha-256 (.array ^ByteBuffer data))
+           :else
+           (let [digest (MessageDigest/getInstance "SHA-256")]
+             (when data
+               (.update digest ^bytes data))
+             (.digest digest)))
+     ;; See https://stackoverflow.com/a/18848073/9800639
+     :cljs
+     (.digest (.update (Sha256.) data))))
+
+#?(:clj
+   (defn hmac-sha-256
+     [key ^String data]
+     (let [mac (Mac/getInstance "HmacSHA256")]
+       (.init mac (SecretKeySpec. key "HmacSHA256"))
+       (.doFinal mac (.getBytes data "UTF-8"))))
+
+   :cljs
+   ;; Copied from https://stackoverflow.com/questions/54316829/how-to-fix-encryption-of-sha256-hmac-on-google-closure-library
+   (defn hma-sha-246 [key message]
+     (let [decode goog.crypt/stringToByteArray
+           hasher (goog.crypt.Sha256.)
+           hmacer (goog.crypt.Hmac. hasher (decode key))]
+       (.getHmac hmacer (decode message)))))
+
+#?(:clj
+   (do
+     (defn ^bytes input-stream->byte-array [is]
+       (let [os (ByteArrayOutputStream.)]
+         (io/copy is os)
+         (.toByteArray os)))
+
+     (defn bbuf->bytes
+       [^ByteBuffer bbuf]
+       (when bbuf
+         (let [bytes (byte-array (.remaining bbuf))]
+           (.get (.duplicate bbuf) bytes)
+           bytes)))
+
+     (defn bbuf->str
+       "Creates a string from java.nio.ByteBuffer object.
+   The encoding is fixed to UTF-8."
+       [^ByteBuffer bbuf]
+       (when-let [bytes (bbuf->bytes bbuf)]
+         (String. ^bytes bytes "UTF-8")))
+
+     (defn bbuf->input-stream
+       [^ByteBuffer bbuf]
+       (when bbuf
+         (io/input-stream (bbuf->bytes bbuf))))
+
+     (defprotocol BBuffable
+       (->bbuf [data]))
+
+     (extend-protocol BBuffable
+       (class (byte-array 0))
+       (->bbuf [bs] (ByteBuffer/wrap bs))
+
+       String
+       (->bbuf [s] (->bbuf (.getBytes s "UTF-8")))
+
+       InputStream
+       (->bbuf [is] (->bbuf (input-stream->byte-array is)))
+
+       ByteBuffer
+       (->bbuf [bb] bb)
+
+       nil
+       (->bbuf [_]))))
+
+(defn xml-read
+  "Parse the UTF-8 XML string."
+  [s]
+  #?(:clj (xml/parse (ByteArrayInputStream. (.getBytes ^String s "UTF-8"))
+                     :namespace-aware false
+                     :skip-whitespace true)
+     :cljs (xml/parse-str s)))
+
+(defn xml->map [element]
+  (cond
+    (nil? element)        nil
+    (string? element)     element
+    (sequential? element) (if (> (count element) 1)
+                            (into {} (map xml->map) element)
+                            (xml->map (first element)))
+    (map? element)
+    (cond
+      (empty? element) {}
+      (:attrs element) {(:tag element)                                (xml->map (:content element))
+                        (keyword (str (name (:tag element)) "Attrs")) (:attrs element)}
+      :else            {(:tag element) (xml->map  (:content element))})
+    :else                 nil))
+
+(defn error-code [response-body]
+  (let [error (some->> (tree-seq coll? #(if (map? %) (vals %) %) response-body)
+                       (filter :Error)
+                       first)]
+    (some-> error (get-in [:Error :Code]))))
+
+(defn xml-write
+  [e]
+  (if (string? e)
+    (print e)
+    (do
+      (print (str "<" (name (:tag e))))
+      (when (:attrs e)
+        (doseq [attr (:attrs e)]
+          (print (str " " (name (key attr)) "=\"" (val attr)"\""))))
+      (if-not (empty? (:content e))
+        (do
+          (print ">")
+          (doseq [c (:content e)]
+            (xml-write c))
+          (print (str "</" (name (:tag e)) ">")))
+        (print " />")))))
+
+(defn url-encode
+  "Percent encode the string to put in a URL."
+  [^String s]
+  #?(:clj
+     (-> s
+         (URLEncoder/encode "UTF-8")
+         (.replace "+" "%20"))
+     :cljs
+     (js/encodeURIComponent s)))
+
+
+(defn query-string
+  "Create a query string from a list of parameters. Values must all be
+  strings."
+  [params]
+  (when-not (empty? params)
+    (str/join "&" (map (fn [[k v]]
+                         (str (url-encode (name k))
+                              "="
+                              (url-encode v)))
+                       params))))
+
+#?(:clj
+   (defn read-json
+     "Read readable as JSON. readable can be any valid input for
+  clojure.java.io/reader."
+     [readable]
+     (json/read-str (slurp readable) :key-fn keyword)))
+
+(defn map-vals
+  "Apply f to the values with the given keys, or all values if `ks` is not specified."
+  ([f m]
+   (map-vals f m (keys m)))
+  ([f m ks]
+   (into m
+         (for [[k v] (select-keys m ks)]
+           [k (f v)]))))
+
+#?(:clj
+   (do
+     (defprotocol Base64Encodable
+       (base64-encode [data]))
+
+     (extend-protocol Base64Encodable
+       (class (byte-array 0))
+       (base64-encode [ba] (.encodeToString (Base64/getEncoder) ba))
+
+       ByteBuffer
+       (base64-encode [bb] (base64-encode (.array bb)))
+
+       java.lang.String
+       (base64-encode [s] (base64-encode (.getBytes s)))))
+   :cljs
+   (defn base64-encode [x]
+     (base64/encodeString (clj->js x))))
+
+(defn base64-decode
+  "base64 decode a base64-encoded string to an input stream"
+  [s]
+  #?(:clj
+     (io/input-stream (.decode (Base64/getDecoder) ^String s))
+     :cljs
+     (js->clj (base64/decodeString s))))
+
+(defn encode-jsonvalue [data]
+  (base64-encode
+   #?(:clj (.getBytes ^String (json/write-str data))
+      :cljs (json/write-str data))))
+
+#?(:clj
+   (defn parse-jsonvalue [data]
+     (-> data
+         base64-decode
+         io/reader
+         slurp
+         (json/read-str :key-fn keyword))))
+
+#?(:clj
+   (def ^Charset UTF8 (Charset/forName "UTF-8")))
+
+(defn ^bytes md5
+  "returns an MD5 hash of the content of bb as a byte array"
+  [^ByteBuffer bb]
+  #?(:clj
+     (let [ba     (.array bb)
+           hasher (MessageDigest/getInstance "MD5")]
+       (.update hasher ^bytes ba)
+       (.digest hasher))
+     :cljs
+     (.digest (.update (Md5.) bb))))
+
+
+(defn uuid-string
+  "returns a string representation of a randomly generated UUID"
+  []
+  #?(:clj
+     (str (UUID/randomUUID))
+     :cljs
+     (str (random-uuid))))
+
+(defn with-defaults
+  "Given a shape and data of that shape, add defaults for the
+  following required keys if they are missing or bound to nil
+
+      :idempotencyToken"
+  [shape data]
+  (reduce (fn [m [member-name member-spec]]
+            (cond
+              (not (nil? (get data member-name)))
+              m
+
+              (:idempotencyToken member-spec)
+              (assoc m member-name (uuid-string))
+
+              :else
+              m))
+          (or data {})
+          (:members shape)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;; Wrappers - here to support testing with-redefs since
+;;;;            we can't redef static methods
+
+#?(:clj
+   (do
+     (defn getenv
+       ([] (System/getenv))
+       ([k] (System/getenv k)))
+
+     (defn getProperty [k]
+       (System/getProperty k))))
diff --git a/src/sci/impl/js.cljs b/src/sci/impl/js.cljs
new file mode 100644
index 00000000..0bbe6d07
--- /dev/null
+++ b/src/sci/impl/js.cljs
@@ -0,0 +1,59 @@
+(ns sci.impl.js
+  "JavaScript interface to sci."
+  {:no-doc true}
+  (:require [cognitect.aws.client]))
+
+(defn map-vals [f m]
+  (reduce-kv (fn [m k v] (assoc m k (f v))) {} m))
+
+(defn map-keys [f m]
+  (reduce-kv (fn [m k v] (assoc m (f k) v)) {} m))
+
+(defn symbolize-keys [m]
+  (map-keys symbol m))
+
+(defn- js-opts->cljs-opts [opts]
+  (let [cljs (js->clj opts)
+        bindings (get cljs "bindings")
+        bindings (symbolize-keys bindings)
+        namespaces (get cljs "namespaces")
+        namespaces (map-vals symbolize-keys namespaces)
+        namespaces (symbolize-keys namespaces)
+        allow (get cljs "allow")
+        allow (mapv symbol allow)
+        deny (get cljs "deny")
+        deny (mapv symbol deny)
+        realize-max (get cljs "realizeMax")
+        preset (when-let [v (get cljs "preset")]
+                 (keyword v))
+        classes (get cljs "classes")
+        allow-all-classes (get classes "allow")
+        classes (symbolize-keys classes)
+        classes (if allow-all-classes (assoc classes :allow allow-all-classes) classes)
+        env (get cljs "env")]
+    {:bindings bindings
+     :namespaces namespaces
+     :allow allow
+     :deny deny
+     :preset preset
+     :realize-max realize-max
+     :classes classes
+     :env env}))
+
+(defn ^:export toJS [v]
+  (if (instance? MetaFn v)
+    ;; when returning a function, make it callable from JS
+    (.-afn v)
+    (clj->js v)))
+
+(defn ^:export evalString
+  "Evaluates string `s` as a Clojure form using the Small Clojure Interpreter.
+
+  The object `opts` may contain the following:
+
+  - `\"bindings\"`: an object with bindings that are used to resolve symbols
+  in the Clojure form, e.g. `{'x 1}`."
+  ([s] (evalString s nil))
+  ([s opts]
+  #_ (sci/eval-string s (js-opts->cljs-opts opts))))
+