lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-25 01:36:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

Docx writer: add MetaString case for abstract, subtitle (#4905)

Browse Source 
fixes #4900
This commit is contained in:
Mauro Bieg
2018-09-15 11:55:23 -07:00
committed by John MacFarlane
parent f6d8df2c76
commit f736dea4ba
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Docx.hs
+2
View File
@@ -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