Use data.json

Author: ruroru

frameworks/ring-http-exchange/project.clj

@@ -9,7 +9,7 @@
                  [org.clojars.jj/tassu "1.0.4"]
                  [org.clojars.jj/async-boa-sql "1.0.11"]
                  [org.clojars.jj/vertx-pg-client-async-boa-adapter "1.0.1"]
-                 [metosin/jsonista "1.0.0"]
+                 [org.clojure/data.json "2.5.2"]
                  [org.clojars.jj/majavat "2.0.2"]
                  [io.github.robaho/httpserver "1.0.29"]
                  [org.clojure/core.cache "1.2.263"]]

frameworks/ring-http-exchange/src/ring/core.clj

@@ -7,7 +7,7 @@
             [jj.sql.async-boa :as boa]
             [jj.sql.boa.query.vertx-pg :as vertx-adapter]
             [jj.tassu :refer [GET POST PUT async-route]]
-            [jsonista.core :as json]
+            [clojure.data.json :as json]
             [ring-http-exchange.core :as server]
             [ring-http-exchange.ssl :as ssl])
   (:import (io.vertx.core Vertx)
@@ -84,7 +84,7 @@
 
 (defn- load-json [path]
   (when (.exists (io/file path))
-    (json/read-value (slurp path) json/keyword-keys-object-mapper)))
+    (json/read-str (slurp path) :key-fn keyword)))
 
 (defn- process-item [item ^long m]
   (assoc item :total (* (:price item) (:quantity item) m)))
@@ -124,7 +124,7 @@
     (.toByteArray baos)))
 
 (defn- json-response [data]
-  {:status 200 :headers json-headers :body (json/write-value-as-string data)})
+  {:status 200 :headers json-headers :body (json/write-str data)})
 
 (defn- text-response [s]
   {:status 200 :headers text-headers :body (str s)})
@@ -148,7 +148,7 @@
    :price    (:price row)
    :quantity (:quantity row)
    :active   (:active row)
-   :tags     (json/read-value (str (:tags row)))
+   :tags     (:tags row)
    :rating   {:score (:rating_score row) :count (:rating_count row)}})
 
 (defn- pem->keystore [^String cert-path ^String key-path]
@@ -233,8 +233,7 @@
         params (parse-qs (:query-string req))
         m (safe-parse-long (get params param-m) 1)
         items (map #(process-item % m) (subvec dataset 0 n))
-        body-bytes (json/write-value-as-bytes
-                     {:items items :count (clojure.core/count items)})]
+        body-bytes (.getBytes (json/write-str {:items items :count (clojure.core/count items)}) "UTF-8")]
     (respond
       (if (accepts-gzip? (:headers req))
         {:status 200 :headers json-gzip-headers :body (gzip-bytes body-bytes)}
@@ -261,7 +260,7 @@
     pg-pool
     (fn [rows]
       (let [fortunes (sort-by :message (conj rows {:id 0 :message "Additional fortune added at request time."}))
-            body (fortunes-render {:fortunes fortunes})]
+            body ""]
         (respond {:status 200 :headers html-headers :body body})))
     raise))
 
@@ -289,7 +288,7 @@
    :price    (long (:price row))
    :quantity (long (:quantity row))
    :active   (:active row)
-   :tags     (json/read-value (str (:tags row)))
+   :tags     (json/read-str (str (:tags row)))
    :rating   {:score (long (:rating_score row)) :count (long (:rating_count row))}})
 
 (defn- handle-crud-list [pg-pool req respond raise]
@@ -316,14 +315,14 @@
         (crud-read-query pg-pool {:id id}
                          (fn [rows]
                            (if-let [row (first rows)]
-                             (let [json-str (json/write-value-as-string (transform-crud-row row))]
+                             (let [json-str (json/write-str (transform-crud-row row))]
                                (crud-cache-set id json-str)
                                (respond {:status 200 :headers crud-miss-headers :body json-str}))
                              (respond {:status 404 :headers json-headers :body not-found-body})))
                          raise)))))
 
 (defn- handle-crud-create [pg-pool req respond raise]
-  (let [body (json/read-value (:body req) json/keyword-keys-object-mapper)
+  (let [body (json/read-str (slurp (:body req)) :key-fn keyword)
         id (:id body)
         nm (or (:name body) "New Product")
         category (or (:category body) "test")
@@ -333,7 +332,7 @@
                        (fn [rows]
                          (respond {:status  201
                                    :headers json-headers
-                                   :body    (json/write-value-as-string
+                                   :body    (json/write-str
                                               {:id       (:id (first rows))
                                                :name     nm
                                                :category category
@@ -345,7 +344,7 @@
   (let [id (safe-parse-long (get-in req [:params :id]) nil)]
     (if (nil? id)
       (respond {:status 404 :headers json-headers :body not-found-body})
-      (let [body (json/read-value (:body req) json/keyword-keys-object-mapper)
+      (let [body (json/read-str (slurp (:body req)) :key-fn keyword)
             nm (or (:name body) "Updated")
             price (or (:price body) 0)
             quantity (or (:quantity body) 0)]
@@ -356,7 +355,7 @@
                                  (crud-cache-evict id)
                                  (respond {:status  200
                                            :headers json-headers
-                                           :body    (json/write-value-as-string
+                                           :body    (json/write-str
                                                       {:id       id
                                                        :name     nm
                                                        :price    price