(ns pixie.data.json

(:require [pixie.parser.json]

[pixie.string :as string]))

(def read-string pixie.parser.json/read-string)

(defprotocol IToJSON

(write-string [this]))

(defn- write-map [m]

(str "{"

(->> m

(transduce (comp (map (fn [[k v]] (string/interp "$(write-string k)$: $(write-string v)$")))

(interpose ", "))

string-builder))

"}"))

(defn- write-sequential [xs]

(str "["

(->> xs

(transduce (comp (map write-string)

(interpose ", "))

string-builder))

"]"))

(defn- write-str [s]

(string/interp "\"$s$\""))

(extend-protocol IToJSON

Character (write-string [this] (write-str this))

Cons (write-string [this] (write-sequential this))

EmptyList (write-string [this] (write-sequential this))

Nil (write-string [_] "null")

Number (write-string [this] (str this))

Keyword (write-string [this] (write-str (name this)))

LazySeq (write-string [this] (write-sequential this))

IMap (write-string [this] (write-map this))

IVector (write-string [this] (write-sequential this))

PersistentList (write-string [this] (write-sequential this))

Ratio (write-string [this] (str (float this)))

String (write-string [this] (write-str this)))