meissa/cryogen-core
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add docstring to get-headings function

Browse source
This commit is contained in:
Adam Tankanow 2015-01-09 07:13:35 -05:00
parent eda815a5ae
commit b3bad2e279
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/cryogen_core/toc.clj
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)