Lots 'o doc strings

2 files changed, 20 insertions, 3 deletions

diff --git a/src/clojure/contrib/json/read.clj b/src/clojure/contrib/json/read.clj
index 7276e089..084f2a12 100644
--- a/src/clojure/contrib/json/read.clj
+++ b/src/clojure/contrib/json/read.clj
@@ -30,7 +30,19 @@
 
 
 
-(ns clojure.contrib.json.read
+(ns 
+  #^{:author "Stuart Sierra",
+     :doc "JavaScript Object Notation (JSON) parser
+
+           For more information on JSON, see http://www.json.org/
+
+           This library parses data in JSON format.  This is a fairly strict
+           implementation of JSON as described at json.org, not a full-fledged
+           JavaScript parser.  JavaScript functions and object constructors
+           are not supported.  Object field names must be quoted strings; they
+           may not be bare symbols.",
+     :see-also ["http://www.json.org", "JSON Home Page"]}
+  clojure.contrib.json.read
   (:import (java.io PushbackReader StringReader EOFException))
   (:use [clojure.contrib.test-is :only (deftest- is)]))
 
diff --git a/src/clojure/contrib/json/write.clj b/src/clojure/contrib/json/write.clj
index 6983ad78..2d149021 100644
--- a/src/clojure/contrib/json/write.clj
+++ b/src/clojure/contrib/json/write.clj
@@ -17,14 +17,19 @@
 
 
 
-(ns clojure.contrib.json.write
+(ns 
+  #^{:author "Stuart Sierra",
+     :doc "JavaScript Object Notation (JSON) generator",
+     :see-also ["http://www.json.org", "JSON Home Page"]}
+  clojure.contrib.json.write
   (:use [clojure.contrib.test-is :only (deftest- is)]))
 
 (defmulti
   #^{:doc "Prints Clojure data types as JSON.  Nil becomes JSON null.
   Keywords become strings, without the leading colon.  Maps become
   JSON objects, all other collection types become JSON arrays.
-  Strings and numbers print as with pr."}
+  Strings and numbers print as with pr."
+     :arglists '([x])}
   print-json (fn [x]
                (cond (nil? x) nil
                      (map? x) :object