fix strings in key map portability

src/clj_jwt/json_key_fn.clj

@@ -2,16 +2,13 @@
   (:require
     [clojure.string :as str]))
 
-(defn write-key
+(def write-key name)
-  [x]
-  (cond
-    (string? x) (str "\"" x "\"")
-    :else (name x)))
 
 (defn read-key
+  "don't keywordize keys with / or ."
   [x]
-  (if-let [y (re-seq #"^\"(.*)\"$" x)]
+  (if (re-matches #".*[/.].*" x)
-    (-> y first second)
+    x
     (keyword x)))
 
 

test/clj_jwt/json_key_fn_test.clj

@@ -5,8 +5,8 @@
 
 (fact "write-key should work fine."
   (write-key :foo)  => "foo"
-  (write-key "foo") => "\"foo\"")
+  (write-key "foo") => "foo")
 
 (fact "read-key should work fine."
   (read-key "foo")     => :foo
-  (read-key "\"foo\"") => "foo")
+  (read-key "foo/bar") => "foo/bar")