 
     ;; Text
     (characters [^chars ch ^long start ^long length]
-      (f [:characters (String. ch start length)]))
+      (f [:text (String. ch start length)]))
 
     ;; Keep track of which text came from a CDATA section
     (startCDATA []

(extend-protocol AsInputSource
  String
  (input-source [s]
    (let [^Reader r (if (.startsWith s "<")
                      (StringReader. s)
                      (io/reader s))]
      (InputSource. r)))

  The event types and their associated data are:
    [:start-element tag attrs]
    [:end-element tag]
    [:text string]
    [:start-cdata]
    [:end-cdata]
    [:processing-instruction target data]
