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

Set linear="no" if no title block. Addresses #797.
jgm · Mar 25, 2013 · b6f75f6 · b6f75f6
1 parent cb906e7
commit b6f75f6
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs
@@ -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"