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

fix toc entry for title which has a link

Browse source
This commit is contained in:
Shigeaki Matsumura 2016-10-23 12:04:29 +09:00
parent 510c33c23d
commit 9858723403
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/cryogen_core/toc.clj
View file

@ -55,8 +55,12 @@
(let [anchor (or id name)] (let [anchor (or id name)]
(if (nil? anchor) (if (nil? anchor)
(recur zp (rest items)) (recur zp (rest items))
(recur (insert-toc-tree-entry (recur (insert-toc-tree-entry zp
zp {:tag tag :anchor anchor :text (or title (first htext))}) {:tag tag
:anchor anchor
:text (or
(if (string? title) title (-> title :content first))
(first htext))})
(rest items)))) (rest items))))
(z/root zp)))) (z/root zp))))