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

EPUB writer: Add id="toc-title" to h1 in nav.xhtml.

Browse source 
Closes #799.
This commit is contained in:
John MacFarlane 2013-03-24 22:41:00 -07:00
parent 7286ef1fc3
commit cb906e7512
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -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