User defined macro reader

macro-reader.clj

(dispatch-reader-macro \X xml-reader)

#X"
  <compras>
    <item>
      <batata>
        <preco>1.23</preco>
      </batata>
    </item>
  </compras>"
; {:content [{:content [{:content [{:content ["1.23"], :attrs nil, 
; :tag :preco}], :attrs nil, :tag :batata}], :attrs nil, :tag :item}]
; , :attrs nil, :tag :compras}