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

Merge pull request #1061 from heurist/epub_coverLinear

Browse source 
Epub Writer: Refactor unnecessary list ++
This commit is contained in:
John MacFarlane 2013-11-19 09:24:44 -08:00
commit 4566309dd5
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -260,8 +260,11 @@ writeEPUB opts doc@(Pandoc meta _) = do
else "no")] $ ()) : else "no")] $ ()) :
map chapterRefNode chapterEntries) map chapterRefNode chapterEntries)
, unode "guide" $ , unode "guide" $
unode "reference" ! [ unode "reference" !
[("type","toc"),("title",plainTitle),("href","nav.xhtml")] $ () [("type","toc"),("title",plainTitle),("href","nav.xhtml")] $ ()
, unode "reference" !
[("type","cover"),("title","Cover"),("href","cover.xhtml")] $ ()
]
] ]
let contentsEntry = mkEntry "content.opf" contentsData let contentsEntry = mkEntry "content.opf" contentsData