From a7245b453c433ce4ed585b0097016576090f01cb Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 22 Feb 2013 20:38:56 -0800 Subject: [PATCH] EPUB writer: Minor section numbering tweaks. * If we need to add an initial section, make it unnumbered. * Don't add extra space before unnumbered section titles in TOC. --- src/Text/Pandoc/Writers/EPUB.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 6cc9c2f58..d25efa672 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -126,7 +126,8 @@ writeEPUB opts doc@(Pandoc meta _) = do let blocks' = addIdentifiers $ case blocks of (Header 1 _ _ : _) -> blocks - _ -> Header 1 ("",[],[]) (docTitle meta) : blocks + _ -> Header 1 ("",["unnumbered"],[]) + (docTitle meta) : blocks let chapterHeaderLevel = writerEpubChapterLevel opts -- internal reference IDs change when we chunk the file, @@ -236,7 +237,7 @@ writeEPUB opts doc@(Pandoc meta _) = do let showNums :: [Int] -> String showNums = intercalate "." . map show let tit' = plainify ils - let tit = if writerNumberSections opts + let tit = if writerNumberSections opts && not (null nums) then showNums nums ++ " " ++ tit' else tit' let src = case lookup ident reftable of