 ;                          m))
 ;
 ;          :else form))
-;      cmp)))+;      cmp)))

(def raw-xml-2
  (xml/parse (java.io.FileInputStream. "test/tango/examples/real-example.xml")))


(defn fix-class [class]
  (clojure.walk/postwalk
    (fn [form]
      (cond
        (= (:tag form) :Results) (merge form {:attrs   {:Qty 997}
                                              ;; TODO - ML fixar och noterar saknad data
                                              :content (conj (vec (:content form))
                                                             (xml/element :Result {:Round "Awsome"}))

    (fn [form]
      (cond
        (= (:tag form) :Class) (if (= (:Name (:attrs form))
                                      "Disco Freestyle B-klass J Po")
                                 (fix-class form)
                                 ;(xml/element :Class {:Name "Changed Class"})
                                 form)
