xml namespaces

{:hello (clojure-version)}

(require '[clojure.data.xml :refer :all :as x]

         '[clojure.zip :as z]

         '[clojure.data.zip.xml :refer [xml-> xml1->] :as zx])

(print (indent-str (element :foo {:foo-attr "foo value"}

                     (element :bar {:bar-attr "bar value"}

                       (element :baz {} "The baz value1")

                       (element :baz {} "The baz value2")

                       (element :baz {} "The baz value3")))))

(parse-str "<?xml version=\"1.0\" encoding=\"UTF-8\"?>

            <foo:html xmlns:foo=\"http://www.w3.org/1999/xhtml\"/>")

(emit-str (element (qname "http://www.w3.org/1999/xhtml" "title")

                   {:xmlns/foo "http://www.w3.org/1999/xhtml"}

                   "Example title"))

(let [input-xml (java.io.StringReader. "<?xml version=\"1.0\" encoding=\"UTF-8\"?>

                                        <g:foo xmlns:g=\"http://g.openvest.com/\"><bar>bahh<baz>The baz value</baz></bar></g:foo>")]

     (-> (x/parse input-xml)

    z/xml-zip

      (xml-> :foo z/node)))

(let [input-xml (java.io.StringReader. "<?xml version=\"1.0\" encoding=\"UTF-8\"?>

                                        <g:foo xmlns:g=\"http://g.openvest.com/\"><bar>bahh<baz>The baz value</baz></bar></g:foo>")]

  (-> (x/parse input-xml)

    (z/xml-zip)

    (xml1-> z/node)

    :tag))

(alias-uri 'xh "http://www.w3.org/1999/xhtml")

(emit-str {:tag ::xh/html

           :content [{:tag ::xh/head} {:tag ::xh/body :content ["DOCUMENT"]}]})

(emit-str (element (qname "http://www.w3.org/1999/xhtml" "title")

                   {:xmlns/foo "http://www.w3.org/1999/xhtml"}

                   "Example title"))

(emit-str (element ::xh/h1 

                   {:xmlns/xhtml "http://www.w3.org/1999/xhtml"}

                   "Example title"))

(def snippet "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n<gnc-v2\n     xmlns:gnc=\"http://www.gnucash.org/XML/gnc\"\n     xmlns:act=\"http://www.gnucash.org/XML/act\"\n     xmlns:book=\"http://www.gnucash.org/XML/book\"\n     xmlns:cd=\"http://www.gnucash.org/XML/cd\"\n     xmlns:cmdty=\"http://www.gnucash.org/XML/cmdty\">\n<gnc:count-data cd:type=\"book\">1</gnc:count-data>\n<gnc:book version=\"2.0.0\">\n<book:id type=\"guid\">9c29209f9f4949c4839efa2f5ca223cb</book:id>\n<gnc:count-data cd:type=\"commodity\">1</gnc:count-data>\n<gnc:count-data cd:type=\"account\">118</gnc:count-data>\n<gnc:count-data cd:type=\"transaction\">1115</gnc:count-data>\n<gnc:count-data cd:type=\"gnc:GncCustomer\">1</gnc:count-data>\n<gnc:count-data cd:type=\"gnc:GncEntry\">10</gnc:count-data>\n<gnc:count-data cd:type=\"gnc:GncInvoice\">5</gnc:count-data>\n<gnc:commodity version=\"2.0.0\">\n  <cmdty:space>CURRENCY</cmdty:space>\n  <cmdty:id>USD</cmdty:id>\n  <cmdty:get_quotes/>\n  <cmdty:quote_source>currency</cmdty:quote_source>\n  <cmdty:quote_tz/>\n</gnc:commodity>\n<gnc:commodity version=\"2.0.0\">\n  <cmdty:space>template</cmdty:space>\n  <cmdty:id>template</cmdty:id>\n  <cmdty:name>template</cmdty:name>\n  <cmdty:xcode>template</cmdty:xcode>\n  <cmdty:fraction>1</cmdty:fraction>\n</gnc:commodity>\n<gnc:account version=\"2.0.0\">\n  <act:name>Root Account</act:name>\n  <act:id type=\"guid\">65da2db443ef41ec8d214bfbcd273da4</act:id>\n  <act:type>ROOT</act:type>\n  <act:commodity>\n    <cmdty:space>CURRENCY</cmdty:space>\n    <cmdty:id>USD</cmdty:id>\n  </act:commodity>\n  <act:commodity-scu>100</act:commodity-scu>\n</gnc:account>\n<gnc:account version=\"2.0.0\">\n  <act:name>Expenses</act:name>\n  <act:id type=\"guid\">d95e20a99bae4a48b3265fa48d837593</act:id>\n  <act:type>EXPENSE</act:type>\n  <act:commodity>\n    <cmdty:space>CURRENCY</cmdty:space>\n    <cmdty:id>USD</cmdty:id>\n  </act:commodity>\n  <act:commodity-scu>100</act:commodity-scu>\n  <act:description>Expenses</act:description>\n  <act:parent type=\"guid\">65da2db443ef41ec8d214bfbcd273da4</act:parent>\n</gnc:account>\n</gnc:book>\n</gnc-v2>\n")

(print snippet)

(let [input-xml (java.io.StringReader. snippet)]

  (-> (x/parse input-xml)

    (z/xml-zip)

    (xml1-> :gnc-v2 z/down z/right z/node)

    :tag))

;; create aliases in this namespace

(let [input-xml (java.io.StringReader. snippet)]

  (->> (x/parse input-xml)

    meta

    ::x/nss

    :p->u

    (map (fn [[p u]] (alias-uri (symbol p) u)))))

(let [input-xml (java.io.StringReader. snippet)]

  (-> (x/parse input-xml)

    (z/xml-zip)

    (xml1-> :gnc-v2 ::gnc/book ::gnc/commodity z/node)

    (x/emit-str)))

;; create aliases for output serializaion

(let [input-xml (java.io.StringReader. snippet)]

  (->> (x/parse input-xml)

    meta

    ::x/nss

    :p->u

    (map (fn [[p u]] [(keyword "xmlns" p) u]))

    (into {})))

(let [input-xml (java.io.StringReader. snippet)]

  (->> (x/parse input-xml)

    meta

    ::x/nss

    :p->u 

   ))

(let [input-xml (java.io.StringReader. snippet)]

  (->> (x/parse input-xml)

    meta

    ;::x/nss

    ;:p->u 

   ))