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

EPUB toChapters: don't treat "refs" Div specially.

Browse source 
This should make toChapters work better if there are
Divs around sections.
This commit is contained in:
John MacFarlane 2019-09-14 11:36:21 -07:00
parent 3f455aedfa
commit 47358831a4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -520,7 +520,7 @@ pandocToEPUB version opts doc = do
let toChapters :: [Block] -> State [Int] [Chapter]
toChapters [] = return []
toChapters (Div ("refs",_,_) bs@(Header 1 _ _:_) : rest) =
toChapters (Div _ bs@(Header 1 _ _:_) : rest) =
toChapters (bs ++ rest)
toChapters (Header n attr@(_,classes,_) ils : bs) = do
nums <- get