-
Notifications
You must be signed in to change notification settings - Fork 7
/
json.clj
44 lines (38 loc) · 1.42 KB
/
json.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
(ns clj-etl-utils.json
(:import
[java.sql Timestamp]
[java.io PrintWriter]
[org.joda.time DateTime]
[org.joda.time.format ISODateTimeFormat])
(:require
[clojure.data.json :as json]))
(extend java.sql.Timestamp json/JSONWriter
{:-write (fn [x #^PrintWriter out]
(.print out "\"")
(.print out
(.print (ISODateTimeFormat/dateTime )
(org.joda.time.DateTime. x)))
(.print out "\""))})
(extend org.joda.time.DateTime json/JSONWriter
{:-write (fn [x #^PrintWriter out]
(.print out "\"")
(.print out (.toString x))
(.print out "\""))})
(extend java.util.Date json/JSONWriter
{:-write (fn [x #^PrintWriter out]
(.print out "\"")
(.print out (.toString (org.joda.time.DateTime. x)))
(.print out "\""))})
(extend clojure.lang.Fn json/JSONWriter
{:-write (fn [x #^PrintWriter out]
(.print out "\"")
(.print out (.toString x))
(.print out "\""))})
(comment
(org.joda.time.DateTime. (java.util.Date.))
(clojure.data.json/json-str (java.util.Date.))
(clojure.data.json/json-str (java.sql.Timestamp. (.getTime (java.util.Date.))))
(.print
(ISODateTimeFormat/dateTime)
(org.joda.time.DateTime. "2013-09-12"))
)