--- Revision None +++ Revision 626666643534 @@ -0,0 +1,12 @@ +(defn ^String generate-stream + "Returns a BufferedWriter for the given Clojure object with the. + JSON-encoded data written to the writer. Takes an optional date + format string that Date objects will be encoded with. + + The default date format (in UTC) is: yyyy-MM-dd'T'HH:mm:ss'Z'" + [obj ^BufferedWriter writer & [^String date-format]] + (let [generator (.createJsonGenerator ^JsonFactory (or *json-factory* + json-factory) writer)] + (generate generator obj (or date-format default-date-format)) + (.flush generator) + writer))