diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-11-19 09:24:44 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-11-19 09:24:44 -0800 |
| commit | 4566309dd5ab5c8e4d67a59011cdf27bd63ed0b0 (patch) | |
| tree | 6a8b9145868912b908fed4beacb429fe9b128824 /src/Text/Pandoc | |
| parent | a3eba6ee848497f98f72aef5dad112c49bdd4fec (diff) | |
| parent | 5b27480e54f4ecfc145bde133f1f51865d9b12a0 (diff) | |
| download | pandoc-4566309dd5ab5c8e4d67a59011cdf27bd63ed0b0.tar.gz | |
Merge pull request #1061 from heurist/epub_coverLinear
Epub Writer: Refactor unnecessary list ++
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index ac0e7610c..be8de7073 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -260,8 +260,11 @@ writeEPUB opts doc@(Pandoc meta _) = do else "no")] $ ()) : map chapterRefNode chapterEntries) , unode "guide" $ - unode "reference" ! - [("type","toc"),("title",plainTitle),("href","nav.xhtml")] $ () + [ unode "reference" ! + [("type","toc"),("title",plainTitle),("href","nav.xhtml")] $ () + , unode "reference" ! + [("type","cover"),("title","Cover"),("href","cover.xhtml")] $ () + ] ] let contentsEntry = mkEntry "content.opf" contentsData |