From 0166aecaab1dfe050ea9ec780833a892c54060e9 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 7 Jun 2023 09:08:53 -0700 Subject: Allow `abstract-title` to be specified in docx metadata. Closes #8794. --- src/Text/Pandoc/Writers/Docx.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index e39dcb648..47a8d9bfc 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -769,7 +769,11 @@ writeOpenXML opts (Pandoc meta blocks) = do abstract <- if null abstract' then return [] else do - abstractTitle <- translateTerm Abstract + abstractTitle <- case lookupMeta "abstract-title" meta of + Just (MetaBlocks bs) -> pure $ stringify bs + Just (MetaInlines ils) -> pure $ stringify ils + Just (MetaString s) -> pure s + _ -> translateTerm Abstract abstractTit <- withParaPropM (pStyleM "AbstractTitle") $ blocksToOpenXML opts [Para [Str abstractTitle]] -- cgit v1.2.3