gistfile1.clj

(defn make-parse-tree-node
  [t children-vec]
  (let [[combined count] (children-info children-vec)]
    {:tag t
     :content children-vec
     :build-id *build-id*
     :count count
     :content-cumulative-count combined
     :broken? (or (#{::unexpected :chimera} t)
                  (some #{::unexpected :chimera} (cons t (map :tag children-vec)))
                  false)
     }))

(defn xml-vzip
  "Returns a zipper for xml elements (as from xml/parse),
  given a root element"
  {:added "1.0"}
  [root]
    (z/zipper (complement string?) 
            (fn [node] (or (:content node) []))
            (fn [node children]
              (make-parse-tree-node 
                (:tag node)
                (vec children)))
            root))