diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-30 16:22:54 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-30 16:22:54 +0200 |
| commit | e5e2a6e0a5c1ef10375e4c94985b3247289d77e9 (patch) | |
| tree | 8470f84775910969c639eedf85aa7b56bfcc91a7 /src/Text/Pandoc | |
| parent | bf651b966bf036ea0a67b6ccde0ce9d4624ecb67 (diff) | |
JATS writer: use both tex and mml alternatives for math when possible.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/JATS.hs | 12 |
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) |