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

EPUB writer: Strip out footnotes from toc entries.

Browse source
This commit is contained in:
John MacFarlane 2014-01-06 21:51:11 -08:00
parent ba6a26b258
commit d97b1fd14c
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -124,7 +124,12 @@ opfName n = QName n Nothing (Just "opf")
plainify :: [Inline] -> String
plainify t =
trimr $ writePlain def{ writerStandalone = False } $ Pandoc nullMeta [Plain t]
trimr $ writePlain def{ writerStandalone = False }
$ Pandoc nullMeta [Plain $ walk removeNote t]
removeNote :: Inline -> Inline
removeNote (Note _) = Str ""
removeNote x = x
getEPUBMetadata :: WriterOptions -> Meta -> IO EPUBMetadata
getEPUBMetadata opts meta = do
@ -397,10 +402,6 @@ writeEPUB opts doc@(Pandoc meta _) = do
let chapters = evalState (toChapters blocks'') []
let removeNote :: Inline -> Inline
removeNote (Note _) = Str ""
removeNote x = x
let chapToEntry :: Int -> Chapter -> Entry
chapToEntry num (Chapter mbnum bs) = mkEntry (showChapter num)
$ renderHtml