diff options
| author | Mauro Bieg <mb21@users.noreply.github.com> | 2019-02-10 16:22:12 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-02-10 07:22:12 -0800 |
| commit | d0a5f2aded6ace0e6310b622d6560fa9fee1d9e3 (patch) | |
| tree | 59a2a366e15ac41436cbfc69b6e2d4706f02dfa2 /src/Text/Pandoc/Writers | |
| parent | f27d029f0f6aaae86f3d6f8ebc1dd81725528888 (diff) | |
| download | pandoc-d0a5f2aded6ace0e6310b622d6560fa9fee1d9e3.tar.gz | |
JATS writer: wrap figure caption in <p> to fix validation (#5292)
closes #5290
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/JATS.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs index 565ed6589..03bcde414 100644 --- a/src/Text/Pandoc/Writers/JATS.hs +++ b/src/Text/Pandoc/Writers/JATS.hs @@ -230,7 +230,7 @@ blockToJATS opts (Para [Image (ident,_,kvs) txt let (maintype, subtype) = imageMimeType src kvs let capt = if null txt then empty - else inTagsSimple "caption" alt + else inTagsSimple "caption" $ inTagsSimple "p" alt let attr = [("id", ident) | not (null ident)] ++ [(k,v) | (k,v) <- kvs, k `elem` ["fig-type", "orientation", "position", "specific-use"]] |