fixed bug with threading macro in wrong order. fixed bug with where space not present between tag and class for top level ul/ol..

This commit is contained in:
Jeff Rabinowitz 2015-10-27 22:58:22 -04:00
parent f9fb1195a0
commit 61e93a3480

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\"")))))