mirror of
https://github.com/penpot/penpot.git
synced 2025-08-07 14:38:33 +02:00
35 lines
896 B
Clojure
35 lines
896 B
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns app.util.json
|
|
(:refer-clojure :exclude [read])
|
|
(:require
|
|
[jsonista.core :as j]))
|
|
|
|
(defn mapper
|
|
[params]
|
|
(j/object-mapper params))
|
|
|
|
(defn write
|
|
([v] (j/write-value-as-bytes v j/keyword-keys-object-mapper))
|
|
([v mapper] (j/write-value-as-bytes v mapper)))
|
|
|
|
(defn write-str
|
|
([v] (j/write-value-as-string v j/keyword-keys-object-mapper))
|
|
([v mapper] (j/write-value-as-string v mapper)))
|
|
|
|
(defn read
|
|
([v] (j/read-value v j/keyword-keys-object-mapper))
|
|
([v mapper] (j/read-value v mapper)))
|
|
|
|
(defn encode
|
|
[v]
|
|
(j/write-value-as-bytes v j/keyword-keys-object-mapper))
|
|
|
|
(defn decode
|
|
[v]
|
|
(j/read-value v j/keyword-keys-object-mapper))
|
|
|