diff options
| author | John MacFarlane <[email protected]> | 2024-02-28 10:05:15 -0800 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2024-02-28 10:05:15 -0800 |
| commit | 87b07c699a5f4be6a14d45984db4898405157a65 (patch) | |
| tree | 334472cfbcf423b6be8629cc07c05adae7ad903b /src | |
| parent | 6f87c9e29ae27df88e12e49cd98b4b2581c5cbdd (diff) | |
Docx reader: ensure that table captions are counted.
Normally these occur outside the table element itself, but they
should still be parsed as captions in this case.
Closes #9518.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Parse.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs index 75ea68a4d..a6c1bf63a 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse.hs @@ -793,9 +793,8 @@ elemToBodyPart ns element case pHeading parstyle of Nothing | Just (numId, lvl) <- pNumInfo parstyle -> do mkListItem parstyle numId lvl parparts - _ -> if isTable - then return $ TblCaption parstyle parparts - else return $ Paragraph parstyle parparts + _ -> return $ (if hasCaptionStyle then TblCaption else Paragraph) + parstyle parparts elemToBodyPart ns element | isElem ns "w" "tbl" element = do |