aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/JATS.hs12
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs
index 5e1b3164b..71a45bf77 100644
--- a/src/Text/Pandoc/Writers/JATS.hs
+++ b/src/Text/Pandoc/Writers/JATS.hs
@@ -381,14 +381,16 @@ inlineToJATS _ (Math t str) = do
let tagtype = case t of
DisplayMath -> "disp-formula"
InlineMath -> "inline-formula"
- return $ inTagsSimple tagtype $
- case res of
- Right r -> text $ Xml.ppcElement conf
- $ fixNS r
- Left _ -> inTagsSimple "tex-math"
+ let rawtex = inTagsSimple "tex-math"
$ text "<![CDATA[" <>
text str <>
text "]]>"
+ return $ inTagsSimple tagtype $
+ case res of
+ Right r -> inTagsSimple "alternatives" $
+ cr <> rawtex $$
+ (text $ Xml.ppcElement conf $ fixNS r)
+ Left _ -> rawtex
inlineToJATS _ (Link _attr [Str t] ('m':'a':'i':'l':'t':'o':':':email, _))
| escapeURI t == email =
return $ inTagsSimple "email" $ text (escapeStringForXML email)