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:
parent
f9fb1195a0
commit
61e93a3480
1 changed files with 2 additions and 2 deletions
|
@ -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\"")))))
|
||||||
|
|
Loading…
Reference in a new issue