EPUB writer: Split references into separate chapter.
Previously the div-enclosed reference section produced by pandoc-citeproc would not be split into its own chapter, which caused various problems. See #2162, #2163. I'm not sure this is a complete fix. I note that the bibliography doesn't appear in nav or toc, which seems bad.
This commit is contained in:
parent
57e16e3287
commit
d5f367d04b
1 changed files with 4 additions and 0 deletions
|
@ -415,10 +415,14 @@ writeEPUB opts doc@(Pandoc meta _) = do
|
|||
let blocks'' = replaceRefs reftable blocks'
|
||||
|
||||
let isChapterHeader (Header n _ _) = n <= chapterHeaderLevel
|
||||
isChapterHeader (Div ("",["references"],[]) (Header n _ _:_)) =
|
||||
n <= chapterHeaderLevel
|
||||
isChapterHeader _ = False
|
||||
|
||||
let toChapters :: [Block] -> State [Int] [Chapter]
|
||||
toChapters [] = return []
|
||||
toChapters (Div ("",["references"],[]) bs@(Header 1 _ _:_) : rest) =
|
||||
toChapters (bs ++ rest)
|
||||
toChapters (Header n attr@(_,classes,_) ils : bs) = do
|
||||
nums <- get
|
||||
mbnum <- if "unnumbered" `elem` classes
|
||||
|
|
Loading…
Add table
Reference in a new issue