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

EPUB writer: remove notes from TOC in nav.xhtml (#4463)

Browse source 
fixes #4453
This commit is contained in:
Mauro Bieg 2018-03-18 19:34:34 +01:00 committed by John MacFarlane
parent 937bec95a9
commit ec47079d3e
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -751,12 +751,13 @@ pandocToEPUB version opts doc@(Pandoc meta _) = do
(writeHtmlStringForEPUB version
opts{ writerTemplate = Nothing }
(Pandoc nullMeta
[Plain $ walk delink tit])) of
[Plain $ walk clean tit])) of
Left _ -> TS.pack $ stringify tit
Right x -> x
-- can't have a element inside a...
delink (Link _ ils _) = Span ("", [], []) ils
delink x = x
-- can't have <a> elements inside generated links...
clean (Link _ ils _) = Span ("", [], []) ils
clean (Note _) = Str ""
clean x = x
let navtag = if epub3 then "nav" else "div"
tocBlocks <- lift $ evalStateT (mapM (navPointNode navXhtmlFormatter) secs) 1