aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-03-24 22:41:00 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-03-24 22:41:00 -0700
commitcb906e751212e89c838fd4e064141ebe66c09f4d (patch)
tree30402cf19f38faadba041b076fb312e1934da396 /src/Text/Pandoc/Writers
parent7286ef1fc3f3393eddef958f6745cabb93551cec (diff)
downloadpandoc-cb906e751212e89c838fd4e064141ebe66c09f4d.tar.gz
EPUB writer: Add `id="toc-title"` to h1 in nav.xhtml.
Closes #799.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/EPUB.hs2
1 files changed, 1 insertions, 1 deletions
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