diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-07-20 23:28:44 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-07-20 23:28:44 -0700 |
| commit | 0f970ed95bc36df8de655a665ff8395b6bf3be1f (patch) | |
| tree | 2b1fc937f8663f53ac82e9a56c94d27a752c474f | |
| parent | 64c7a0ab765eced232c84a9e86064518f786a78c (diff) | |
| download | pandoc-0f970ed95bc36df8de655a665ff8395b6bf3be1f.tar.gz | |
EPUB writer: Avoid excess whitespace in nav.xhtml.
This should improve TOC view in iBooks. Closes #1392.
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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] |