From cb906e751212e89c838fd4e064141ebe66c09f4d Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 24 Mar 2013 22:41:00 -0700 Subject: EPUB writer: Add `id="toc-title"` to h1 in nav.xhtml. Closes #799. --- src/Text/Pandoc/Writers/EPUB.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index d92103902..e875a0649 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -332,7 +332,7 @@ writeEPUB opts doc@(Pandoc meta _) = do , unode "link" ! [("rel","stylesheet"),("type","text/css"),("href","stylesheet.css")] $ () ] , unode "body" $ unode navtag ! [("epub:type","toc") | epub3] $ - [ unode "h1" plainTitle + [ unode "h1" ! [("id","toc-title")] $ plainTitle , unode "ol" ! [("class","toc")] $ evalState (mapM (navPointNode navXhtmlFormatter) secs) 1] ] let navEntry = mkEntry "nav.xhtml" navData -- cgit v1.2.3