diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-03-02 16:52:19 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-03-02 16:52:19 -0800 |
| commit | b083a3c3842feaad3e4488db07da1b722df40260 (patch) | |
| tree | f6a8701ec8cbed376864d6f78a8f6ab037c22f81 /src/Text/Pandoc/Readers/JATS.hs | |
| parent | a4eaacc396d94db089498927e464b281d570446d (diff) | |
| download | pandoc-b083a3c3842feaad3e4488db07da1b722df40260.tar.gz | |
JATS reader: Support fig-group block element (#5317).
Diffstat (limited to 'src/Text/Pandoc/Readers/JATS.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/JATS.hs | 5 |
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 |