add docstring to get-headings function

This commit is contained in:
Adam Tankanow 2015-01-09 07:13:35 -05:00
parent eda815a5ae
commit b3bad2e279

View file

@ -5,7 +5,10 @@
(def _h [:h1 :h2 :h3 :h4 :h5 :h6]) (def _h [:h1 :h2 :h3 :h4 :h5 :h6])
(defn- compare_index [i1 i2] (- (.indexOf _h i2) (.indexOf _h i1))) (defn- compare_index [i1 i2] (- (.indexOf _h i2) (.indexOf _h i1)))
(defn get-headings [content] (defn- get-headings
"Turn a body of html content into a vector of elements whose tags are
headings."
[content]
(reduce (reduce
(fn [headings {:keys [tag attrs content] :as elm}] (fn [headings {:keys [tag attrs content] :as elm}]
(if (some #{tag} _h) (if (some #{tag} _h)