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

Docx Parser: Produce endnotes.

Browse source 
The parser had been changing footnotes and endnotes into footnotes. This
isn't a problem, because pandoc collapses them, but the parser should
maintain as much of the docx structure as is collapsed, and let the
toplevel reader worry about how to translate it into Pandoc. (This would
be an issue when, as is planned, the docx parser spins off into its
own module.)

The output is the same, so no test change is required.
This commit is contained in:
Jesse Rosenthal 2014-08-01 09:16:42 -04:00
parent 1b9371cfdf
commit 3a411c3307
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Readers/Docx/Parse.hs
View file

@ -857,8 +857,8 @@ elemToRun ns element
notes <- asks envNotes notes <- asks envNotes
case lookupEndnote enId notes of case lookupEndnote enId notes of
Just e -> do bps <- mapD (elemToBodyPart ns) (elChildren e) Just e -> do bps <- mapD (elemToBodyPart ns) (elChildren e)
return $ Footnote bps return $ Endnote bps
Nothing -> return $ Footnote [] Nothing -> return $ Endnote []
elemToRun ns element elemToRun ns element
| isElem ns "w" "r" element = do | isElem ns "w" "r" element = do
runElems <- elemToRunElems ns element runElems <- elemToRunElems ns element