         :else form))
     class))
 
-(defn new-stuff-2 [class-result]
+(defn add-results-to-dp-xml [xml-data class-result]
   (clojure.walk/postwalk
     (fn [form]
       (cond

                :X (if mark "X" " ")
                :D3 ""
                :A ""
                :B "Awesome4"}))

(defn make-mark-list-node [marks]
  (xml/element :MarkList

                                 ;(xml/element :Class {:Name "Changed Class"})
                                 form)
        :else form))
    xml-data))

(defn smoke-test []
  (let [in-xml (get-xml-from-file "test/tango/examples/real-example.xml")
        out-xml (add-results-to-dp-xml in-xml (first class-results))]
    (spit "export5.xml" (xml/emit-str out-xml))))

(smoke-test)

;; API
(defn export-results [stuff]
  (log/info (str "Export Results with " stuff)))
