Adds transit helper

deps.edn

@@ -5,6 +5,7 @@
         appliedscience/js-interop {:mvn/version "0.2.5"}
         camel-snake-kebab {:mvn/version "0.4.1"}
         cljs-bean {:mvn/version "1.6.0"}
+        com.cognitect/transit-cljs {:mvn/version "0.8.264"}
         metosin/sieppari {:mvn/version "0.0.0-alpha13"}
         tick {:mvn/version "0.4.26-alpha"}}
 

pom.xml

@@ -16,7 +16,7 @@
   <modelVersion>4.0.0</modelVersion>
   <groupId>dehli</groupId>
   <artifactId>serverless</artifactId>
-  <version>0.2.0</version>
+  <version>0.2.1</version>
   <name>serverless</name>
   <dependencies>
     <dependency>
@@ -34,6 +34,11 @@
       <artifactId>js-interop</artifactId>
       <version>0.2.5</version>
     </dependency>
+    <dependency>
+      <groupId>com.cognitect</groupId>
+      <artifactId>transit-cljs</artifactId>
+      <version>0.8.264</version>
+    </dependency>
     <dependency>
       <groupId>org.clojure</groupId>
       <artifactId>clojurescript</artifactId>

src/serverless/interceptors/core.cljs

@@ -2,6 +2,7 @@
   (:require [serverless.interceptors.env :refer [assoc-env]]
             [serverless.interceptors.event :refer [assoc-event]]
             [serverless.interceptors.now :refer [assoc-now]]
+            [serverless.interceptors.raw-env :refer [assoc-raw-env]]
             [serverless.interceptors.raw-event :refer [assoc-raw-event]]
             [sieppari.core :as s]
             [sieppari.async.core-async]))
@@ -13,5 +14,6 @@
 (def common-interceptors
   [assoc-raw-event
    assoc-event
+   assoc-raw-env
    assoc-env
    assoc-now])

src/serverless/interceptors/env.cljs

@@ -1,6 +1,5 @@
 (ns serverless.interceptors.env
-  (:require [applied-science.js-interop :as j]
-            [camel-snake-kebab.core :as csk]
+  (:require [camel-snake-kebab.core :as csk]
             [camel-snake-kebab.extras :as cske]
             [goog.object :as gobj]))
 
@@ -11,5 +10,9 @@
 
 (def assoc-env
   {:name :serverless/assoc-env
-   :enter #(assoc-in % [:request :serverless/env]
-                     (env->hash-map (j/get js/process :env)))})
+   :enter (fn [context]
+            (assoc-in context
+                      [:request :serverless/env]
+                      (-> context
+                          (get-in [:request :serverless/raw-env])
+                          env->hash-map)))})

src/serverless/interceptors/raw_env.cljs

@@ -0,0 +1,6 @@
+(ns serverless.interceptors.raw-env
+  (:require [applied-science.js-interop :as j]))
+
+(def assoc-raw-env
+  {:name :serverless/assoc-raw-env
+   :enter #(assoc-in % [:request :serverless/raw-env] (j/get js/process :env))})

src/serverless/transit.cljs

@@ -0,0 +1,12 @@
+(ns serverless.transit
+  (:require [cognitect.transit :as t])
+  (:refer-clojure :exclude [read]))
+
+(def ^:private default-reader (t/reader :json))
+(def ^:private default-writer (t/writer :json))
+
+(defn read [x]
+  (t/read default-reader x))
+
+(defn write [x]
+  (t/write default-writer x))