aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMauro Bieg <mb21@users.noreply.github.com>2018-09-15 20:55:23 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2018-09-15 11:55:23 -0700
commitf736dea4ba71f81b37ff28a218115871249b35ec (patch)
treedcd08321aea136894930a1d67777f082ea2a259e /src
parentf6d8df2c76ac3268093e97b6c2e68bf1701755fc (diff)
downloadpandoc-f736dea4ba71f81b37ff28a218115871249b35ec.tar.gz
Docx writer: add MetaString case for abstract, subtitle (#4905)
fixes #4900
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/Docx.hs2
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