Merge pull request #50 from Artiavis/fix-toc-bug

fixed bug with threading macro in wrong order
This commit is contained in:
Carmen La 2015-10-27 23:01:49 -04:00
commit 91a924a147

View file

@ -54,7 +54,7 @@
contents, while :ul will result in an unordered list. The default is an contents, while :ul will result in an unordered list. The default is an
ordered list." ordered list."
(let [li-tags (list-type _list-types) (let [li-tags (list-type _list-types)
top-tag (li-tags -> first (subs 1 3))] top-tag (-> li-tags first (subs 1 3))]
(-> html (-> html
(.getBytes "UTF-8") (.getBytes "UTF-8")
(java.io.ByteArrayInputStream.) (java.io.ByteArrayInputStream.)
@ -63,4 +63,4 @@
(get-headings) (get-headings)
(make-links li-tags) (make-links li-tags)
(clojure.string/replace-first (clojure.string/replace-first
(re-pattern top-tag) (str top-tag "class=\"contents\""))))) (re-pattern top-tag) (str top-tag " class=\"contents\"")))))