@@ -763,11 +763,13 @@ writeOpenXML opts (Pandoc meta blocks) = do
763 let abstract' = case lookupMeta "abstract" meta of
763 let abstract' = case lookupMeta "abstract" meta of
764 Just (MetaBlocks bs) -> bs
764 Just (MetaBlocks bs) -> bs
765 Just (MetaInlines ils) -> [Plain ils]
765 Just (MetaInlines ils) -> [Plain ils]
766+ Just (MetaString s) -> [Plain [Str s]]
767 let subtitle' = case lookupMeta "subtitle" meta of
768 let subtitle' = case lookupMeta "subtitle" meta of
768 Just (MetaBlocks [Plain xs]) -> xs
769 Just (MetaBlocks [Plain xs]) -> xs
769 Just (MetaBlocks [Para xs]) -> xs
770 Just (MetaBlocks [Para xs]) -> xs
770 Just (MetaInlines xs) -> xs
771 Just (MetaInlines xs) -> xs
772+ Just (MetaString s) -> [Str s]
772 let includeTOC = writerTableOfContents opts ||
774 let includeTOC = writerTableOfContents opts ||
773 case lookupMeta "toc" meta of
775 case lookupMeta "toc" meta of