(ns testing
  (:require [clj-xpath.core :as xp]))

(def ^:dynamic xml-doc
  (slurp "xmlns-test.xml")

(xp/with-namespace-context (xp/xmlnsmap-from-root-node xml-doc)
  (xp/$x "//lexsdigest:Person" xml-doc))

(xp/with-namespace-context (xp/xmlnsmap-from-root-node xml-doc)
  (xp/$x "//lexsdigest:Person/nc:PersonName/nc:PersonGivenName" xml-doc))

(xp/with-namespace-context (xp/xmlnsmap-from-root-node xml-doc)
  (xp/$x:text "./nc:PersonName/nc:PersonGivenName"
    (first (xp/$x "//lexsdigest:Person" xml-doc))))

(xp/with-namespace-context (xp/xmlnsmap-from-root-node xml-doc)
  (map
    #(xp/$x:text "./nc:PersonName/nc:PersonGivenName" %)
    (xp/$x "//lexsdigest:Person" xml-doc)))