     (InputSource. (io/reader o))))
 
 
-(defn event-seq
+(defn sax-seq
   "Given a source of XML, returns a sequence of events, in the form of
   vectors. See xml-handler."
   [in]

        handler (xml-handler put)]
    (.setContentHandler parser handler)
    (.setProperty parser "http://xml.org/sax/properties/lexical-handler" handler)
    (future
      (try
        (.parse parser in)


(defn parse [in]
  (-> in
      sax-seq
      throw-on-error
      merge-text
      (ignore :start-cdata :end-cdata)
      (ignore :start-prefix-mapping :end-prefix-mapping)
      (ignore :comment)
      to-nodes
      ffirst
      ))
