diff options
| author | Mauro Bieg <mb21@users.noreply.github.com> | 2018-09-15 20:55:23 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-09-15 11:55:23 -0700 |
| commit | f736dea4ba71f81b37ff28a218115871249b35ec (patch) | |
| tree | dcd08321aea136894930a1d67777f082ea2a259e /src/Text/Pandoc/Writers | |
| parent | f6d8df2c76ac3268093e97b6c2e68bf1701755fc (diff) | |
| download | pandoc-f736dea4ba71f81b37ff28a218115871249b35ec.tar.gz | |
Docx writer: add MetaString case for abstract, subtitle (#4905)
fixes #4900
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 2055ee1da..5bd7e809b 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -763,11 +763,13 @@ writeOpenXML opts (Pandoc meta blocks) = do let abstract' = case lookupMeta "abstract" meta of Just (MetaBlocks bs) -> bs Just (MetaInlines ils) -> [Plain ils] + Just (MetaString s) -> [Plain [Str s]] _ -> [] let subtitle' = case lookupMeta "subtitle" meta of Just (MetaBlocks [Plain xs]) -> xs Just (MetaBlocks [Para xs]) -> xs Just (MetaInlines xs) -> xs + Just (MetaString s) -> [Str s] _ -> [] let includeTOC = writerTableOfContents opts || case lookupMeta "toc" meta of |