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

EPUB writer: Don't put blank title page in reading sequence.

Browse source 
Set linear="no" if no title block.
Addresses #797.
This commit is contained in:
John MacFarlane 2013-03-24 23:06:44 -07:00
parent cb906e7512
commit b6f75f60d6
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -242,7 +242,10 @@ writeEPUB opts doc@(Pandoc meta _) = do
Nothing -> []
Just _ -> [ unode "itemref" !
[("idref", "cover"),("linear","no")] $ () ]
++ ((unode "itemref" ! [("idref", "title_page"),("linear","yes")] $ ()) :
++ ((unode "itemref" ! [("idref", "title_page")
,("linear", case meta of
Meta [] [] [] -> "no"
_ -> "yes")] $ ()) :
(unode "itemref" ! [("idref", "nav")
,("linear", if writerTableOfContents opts
then "yes"