Add JSON support

README.md

@@ -64,6 +64,7 @@ You will need to at least specify `--from` and `--to` to specify input and outpu
     html*         W  HTML file that can submit changes to Backloggery
     text         RW  User-editable plain text
     edn          RW  Machine-readable EDN
+    json         RW  Machine-readable JSON
 
     * Not yet implemented
 

project.clj

@@ -6,7 +6,7 @@
   :dependencies [[org.clojure/clojure "1.6.0"]
                  [org.clojure/core.typed "0.2.5"]
                  [org.clojure/data.xml "0.0.7"]
-                 [org.clojure/data.json "0.2.5"]
+                 [org.clojure/data.json "0.2.6"]
                  [org.clojure/tools.cli "0.2.4"]
                  [clj-http "0.7.6"]
                  [slingshot "0.10.3"]

src/bltool/core.clj

@@ -49,6 +49,7 @@
     html*         W  HTML file that can submit changes to Backloggery
     text         RW  User-editable plain text
     edn          RW  Machine-readable EDN
+    json         RW  Machine-readable JSON
 
     * Not yet implemented"
 

src/bltool/data.clj

@@ -1,6 +1,6 @@
 (ns bltool.data
   (:require [bltool.data.default :as default])
-  (:require [bltool.data steam backloggery edn text xboxlive])
+  (:require [bltool.data steam backloggery edn text xboxlive json])
   (:require [bltool.flags :refer :all]))
 
 (def read-games default/read-games)

src/bltool/data/json.clj

@@ -0,0 +1,13 @@
+(ns bltool.data.json
+  (:require [bltool.data.default :refer :all])
+  (:require [bltool.flags :refer :all])
+  (:require [clojure.data.json :as json])
+  (:require [clojure.pprint :as pprint]))
+
+(defmethod read-games "json" [_ source]
+  (json/read (java.io.PushbackReader. source) :key-fn keyword))
+
+(defmethod write-games "json" [_ games sink]
+  (binding [*out* sink]
+    (json/pprint (vec games)))
+  (.write sink "\n"))