git.iko.soy/typeable/pandoc
on master help sign in
EPUB writer: include "landmarks" section in nav document for epub3.
cb8bb47John MacFarlane
src/Text/Pandoc/Writers/EPUB.hs+23−3
compare with master
unifiedsplit
@@ -343,7 +343,6 @@ writeEPUB opts doc@(Pandoc meta _) = do
343 , writerStandalone = True
343 , writerStandalone = True
344 , writerSectionDivs = True
344 , writerSectionDivs = True
345 , writerHtml5 = epub3
345 , writerHtml5 = epub3
346− , writerTableOfContents = False -- we always have one in epub
347 , writerVariables = vars
346 , writerVariables = vars
348 , writerHTMLMathMethod =
347 , writerHTMLMathMethod =
349 if epub3
348 if epub3
@@ -612,13 +611,34 @@ writeEPUB opts doc@(Pandoc meta _) = do
612
611
613 let navtag = if epub3 then "nav" else "div"
612 let navtag = if epub3 then "nav" else "div"
614 let navBlocks = [RawBlock (Format "html") $ ppElement $
613 let navBlocks = [RawBlock (Format "html") $ ppElement $
615− unode navtag ! [("epub:type","toc") | epub3] $
614+ unode navtag ! ([("epub:type","toc") | epub3] ++
615+ [("id","toc")]) $
616 [ unode "h1" ! [("id","toc-title")] $ plainTitle
616 [ unode "h1" ! [("id","toc-title")] $ plainTitle
617 , unode "ol" ! [("class","toc")] $ evalState (mapM (navPointNode navXhtmlFormatter) secs) 1]]
617 , unode "ol" ! [("class","toc")] $ evalState (mapM (navPointNode navXhtmlFormatter) secs) 1]]
618+ let landmarks = if epub3
619+ then [RawBlock (Format "html") $ ppElement $
620+ unode "nav" ! [("epub:type","landmarks")
621+ ,("hidden","hidden")] $
622+ [ unode "ol" $
623+ [ unode "li"
624+ [ unode "a" ! [("href", "cover.xhtml")
625+ ,("epub:type", "cover")] $
626+ "Cover"] |
627+ epubCoverImage metadata /= Nothing
628+ ] ++
629+ [ unode "li"
630+ [ unode "a" ! [("href", "#toc")
631+ ,("epub:type", "toc")] $
632+ "Table of contents"
633+ ] | writerTableOfContents opts
634+ ]
635+ ]
636+ ]
637+ else []
618 let navData = renderHtml $ writeHtml opts'
638 let navData = renderHtml $ writeHtml opts'
619 (Pandoc (setMeta "title"
639 (Pandoc (setMeta "title"
620 (walk removeNote $ fromList $ docTitle' meta) nullMeta)
640 (walk removeNote $ fromList $ docTitle' meta) nullMeta)
621− navBlocks)
641+ (navBlocks ++ landmarks))
622 let navEntry = mkEntry "nav.xhtml" navData
642 let navEntry = mkEntry "nav.xhtml" navData
623
643
624 -- mimetype
644 -- mimetype