diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-11-15 07:53:40 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-11-15 07:53:40 -0800 |
| commit | 593cbd8142d376635de93f0415d1022375689724 (patch) | |
| tree | a4690b8b02ddada7fbce40f1e6cdc665a53797f6 | |
| parent | 87f20f11e220241ced3ba8a32d8d9867d2baebd9 (diff) | |
| download | pandoc-593cbd8142d376635de93f0415d1022375689724.tar.gz | |
Docx writer: insert space between footnote ref and footnote.
This matches Word's default behavior. Closes #2527.
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 40dbd839c..94c9ff28e 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -1070,8 +1070,8 @@ inlineToOpenXML opts (Note bs) = do [ mknode "w:rPr" [] footnoteStyle , mknode "w:footnoteRef" [] () ] let notemarkerXml = RawInline (Format "openxml") $ ppElement notemarker - let insertNoteRef (Plain ils : xs) = Plain (notemarkerXml : ils) : xs - insertNoteRef (Para ils : xs) = Para (notemarkerXml : ils) : xs + let insertNoteRef (Plain ils : xs) = Plain (notemarkerXml : Space : ils) : xs + insertNoteRef (Para ils : xs) = Para (notemarkerXml : Space : ils) : xs insertNoteRef xs = Para [notemarkerXml] : xs oldListLevel <- gets stListLevel oldParaProperties <- gets stParaProperties |