aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2019-03-02 16:52:19 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2019-03-02 16:52:19 -0800
commitb083a3c3842feaad3e4488db07da1b722df40260 (patch)
treef6a8701ec8cbed376864d6f78a8f6ab037c22f81 /src/Text/Pandoc/Readers
parenta4eaacc396d94db089498927e464b281d570446d (diff)
downloadpandoc-b083a3c3842feaad3e4488db07da1b722df40260.tar.gz
JATS reader: Support fig-group block element (#5317).
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/JATS.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/JATS.hs b/src/Text/Pandoc/Readers/JATS.hs
index 559d92e66..e074599eb 100644
--- a/src/Text/Pandoc/Readers/JATS.hs
+++ b/src/Text/Pandoc/Readers/JATS.hs
@@ -181,7 +181,10 @@ parseBlock (Elem e) =
"title" -> return mempty -- processed by header
"table" -> parseTable
"fig" -> parseFigure
- "table-wrap" -> divWith (attrValue "id" e, ["table-wrap"], []) <$> getBlocks e
+ "fig-group" -> divWith (attrValue "id" e, ["fig-group"], [])
+ <$> getBlocks e
+ "table-wrap" -> divWith (attrValue "id" e, ["table-wrap"], [])
+ <$> getBlocks e
"caption" -> divWith (attrValue "id" e, ["caption"], []) <$> sect 6
"ref-list" -> parseRefList e
"?xml" -> return mempty