Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

EPUB: Fixed invalid nesting problem in nav.xhtml.

Browse source
This commit is contained in:
John MacFarlane 2012-11-02 21:12:56 -07:00
parent e9542a60b5
commit afa5a4da67
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Writers/EPUB.hs
View file

@ -274,9 +274,9 @@ writeEPUB version opts doc@(Pandoc meta _) = do
let navXhtmlFormatter :: Int -> String -> String -> [Element] -> Element
navXhtmlFormatter n tit src subs = unode "li" !
[("id", "toc-li-" ++ show n)] $
unode "a" ! [("href",src)] $
unode "span" tit :
case subs of
(unode "a" ! [("href",src)]
$ (unode "span" tit))
: case subs of
[] -> []
(_:_) -> [unode "ol" subs]