           (assoc acc (keyword k) v)))
         {} attrs)))
 
-;; ***********************************************
-
 (defrecord DOMElement [tag text attributes])
 
 (defn element->map

(ns falkor.parser
  (:import [org.jsoup.Jsoup]
           [org.jsoup.nodes Document Element]))

;; ****************************************************************
;; Low level API for parsing web pages into Clojure data structures
;; ****************************************************************

(defn get-document
  "Retrieve a web page and cast it to a Document object.

    (merge base-element {:attributes attributes}))))
  ([element]
    (element->map element false)))

(def as-clojure (partial mapv element->map))

