@@ -332,7 +332,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
332 , unode "link" ! [("rel","stylesheet"),("type","text/css"),("href","stylesheet.css")] $ () ]
332 , unode "link" ! [("rel","stylesheet"),("type","text/css"),("href","stylesheet.css")] $ () ]
333 , unode "body" $
333 , unode "body" $
334 unode navtag ! [("epub:type","toc") | epub3] $
334 unode navtag ! [("epub:type","toc") | epub3] $
335− [ unode "h1" plainTitle
335+ [ unode "h1" ! [("id","toc-title")] $ plainTitle
336 , unode "ol" ! [("class","toc")] $ evalState (mapM (navPointNode navXhtmlFormatter) secs) 1]
336 , unode "ol" ! [("class","toc")] $ evalState (mapM (navPointNode navXhtmlFormatter) secs) 1]
338 let navEntry = mkEntry "nav.xhtml" navData
338 let navEntry = mkEntry "nav.xhtml" navData