(ns ennui.core
  (:require [clojure.data.xml :as xml]
            [clojure.zip :as zip]
            [clojure.data.zip.xml :as zipx]))

(defn xml-content
  "Returns the contents of the xml node at location loc."
  [loc] ((zip/node loc) :content))


(defn dump-resources
 "Dump resources from an Evernote file"
 [fname]
  (let [x (xml/parse (java.io.FileReader. (java.io.File. fname)))
        xz (zip/xml-zip x)]
    (zipx/xml-> xz :en-export :note xml-content)))