From 0f970ed95bc36df8de655a665ff8395b6bf3be1f Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 20 Jul 2014 23:28:44 -0700 Subject: EPUB writer: Avoid excess whitespace in nav.xhtml. This should improve TOC view in iBooks. Closes #1392. --- src/Text/Pandoc/Writers/EPUB.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Writers') diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index cc6883a92..ec206086a 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -581,7 +581,7 @@ writeEPUB opts doc@(Pandoc meta _) = do navXhtmlFormatter n tit src subs = unode "li" ! [("id", "toc-li-" ++ show n)] $ (unode "a" ! [("href",src)] - $ (unode "span" tit)) + $ tit) : case subs of [] -> [] (_:_) -> [unode "ol" ! [("class","toc")] $ subs] -- cgit v1.2.3