correct tag names, doc tweaks

Author: stuarthalloway

README.md

@@ -1,10 +1,8 @@
-data.fressian
-========================================
+# data.fressian
 
 Read and write fressian data. See http://edn-format.org/
 
-Releases and Dependency Information
-----------------------------------------
+# Releases and Dependency Information
 
 [Leiningen](https://github.com/technomancy/leiningen) dependency information:
 
@@ -26,10 +24,7 @@ Other versions:
 
 * [Development Snapshot Repositories](http://dev.clojure.org/display/doc/Maven+Settings+and+Repositories)
 
-
-
-Usage
-----------------------------------------
+# Usage
 
 [API Documentation](http://clojure.github.com/data.fressian/)
 
@@ -45,14 +40,13 @@ Examples:
     (fress/create-reader is)
     (fress/create-writer os)
 
-    ;; all read/write functions tate optional handlers
+    ;; all read/write functions take optional handlers
     (fress/write x :handlers my-handlers)
 
 Other options are available. Refer to the [API Documentation](http://clojure.github.com/data.fressian/) for details.
 
 
-Developer Information
-----------------------------------------
+# Developer Information
 
 * [GitHub project](https://github.com/clojure/data.fressian)
 
@@ -63,13 +57,7 @@ Developer Information
 * [Compatibility Test Matrix](http://build.clojure.org/job/data.fressian-test-matrix/)
 
 
-
-Change Log
-----------------------------------------
-
-
-Copyright and License
-----------------------------------------
+# Copyright and License
 
 Copyright (c) Cognitect, Inc. All rights reserved.  The use and
 distribution terms for this software are covered by the Eclipse Public

src/main/clojure/clojure/data/fressian.clj

@@ -70,14 +70,7 @@
 
 (def clojure-write-handlers
   "Standard set of write handlers for Clojure data."
-  {Byte
-   {"byte"
-    (reify WriteHandler
-           (write [_ w b]
-                  (.writeTag w "byte" 1)
-                  (.writeInt w (int b))))}
-   
-   Character
+  {Character
    {"char"
     (reify WriteHandler
            (write [_ w ch]
@@ -92,7 +85,7 @@
                   (.writeObject w (.denominator ^Ratio n))))}
 
    IRecord
-   {"record"
+   {"clojure/record"
     (reify WriteHandler
            (write [_ w rec]
                   (.writeTag w "record" 2)
@@ -199,14 +192,16 @@
 
 (defn ^Writer create-writer
   "Create a fressian writer targeting out. Handlers must be
-   a nested map of type => tag => WriteHandler."
+   a nested map of type => tag => WriteHandler, see
+   clojure-write-handlers for an example."
   [^OutputStream out & {:keys [handlers]}]
   (FressianWriter. out (or handlers (-> clojure-write-handlers associative-lookup inheritance-lookup))))
 
 (defn ^Reader create-reader
   "Create a fressian reader targeting in, which must be compatible
-   with clojure.java.io/input-stream.  handlers can be an ILookup or
-   a map of tag => ReadHandler."
+   with clojure.java.io/input-stream.  Handlers can be an ILookup
+   or a map of tag => ReadHandler, see clojure-read-handlers for
+   an example."
   [^InputStream in & {:keys [handlers checksum?]}]
   (FressianReader. in
                    (or handlers (associative-lookup clojure-read-handlers))

src/test/clojure/clojure/data/fressian_test.clj

@@ -53,8 +53,7 @@
 (defn data-with-handler
   "Generate data that has data.fressian specific handler"
   []
-  (gen/one-of #(.byteValue (gen/byte))
-              gen/char
+  (gen/one-of gen/char
               gen/ratio
               gen/bigint
               gen-example-record