(ns Week3-xml)

(use '[clojure.xml :only (parse)])
(def xml-doc (parse (java.io.File. "src/calendar.xml")))

(defn resultaat-naam [resultaat] (count (:content resultaat)) )
(defn resultaat-cijfer [resultaat] (first (:content (first (:content resultaat)))) )
(defn holiday [elem] {:naam (resultaat-naam elem), :cijfer (resultaat-cijfer elem)})


 (for [elt (xml-seq xml-doc) :when (= :resultaat(:tag elt))]  (holiday [elt]))







<?xml version="1.0" encoding="utf-8"?>
<tentamenresultaten>
    <resultaat>
        <naam>Piet</naam>
        <cijfer>7</cijfer>
    </resultaat>
    <resultaat>
        <naam>Klaas</naam>
        <cijfer>10</cijfer>
    </resultaat>
</tentamenresultaten>