diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-01-30 11:31:50 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-30 11:31:50 +0100 |
| commit | 7018003811f2b606808ddecb5c1ce12e27ad7d51 (patch) | |
| tree | 9f70c8e454ee598f49a9f85f6c2e0a2ba4e629ac /src/Text/Pandoc/Writers/HTML.hs | |
| parent | 42257b9be935b92c9118d281543c26a30f04d44b (diff) | |
| download | pandoc-7018003811f2b606808ddecb5c1ce12e27ad7d51.tar.gz | |
`--mathml` and MathML in HTMLMathMethod longer take an argument.
The argument was for a bridge javascript that used to be necessary
in 2004. We have removed the script already.
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 9037bfbec..d1fb3dda7 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -230,10 +230,6 @@ pandocToHtml opts (Pandoc meta blocks) = do H.script ! A.src (toValue url) ! A.type_ "text/javascript" $ mempty - MathML (Just url) -> - H.script ! A.src (toValue url) - ! A.type_ "text/javascript" - $ mempty MathJax url -> H.script ! A.src (toValue url) ! A.type_ "text/javascript" @@ -903,7 +899,7 @@ inlineToHtml opts inline = do return $ case t of InlineMath -> preEscapedString $ "<EQ ENV=\"math\">" ++ str ++ "</EQ>" DisplayMath -> preEscapedString $ "<EQ ENV=\"displaymath\">" ++ str ++ "</EQ>" - MathML _ -> do + MathML -> do let conf = useShortEmptyTags (const False) defaultConfigPP res <- lift $ convertMath writeMathML t str @@ -1061,6 +1057,6 @@ isMathEnvironment s = "\\begin{" `isPrefixOf` s && allowsMathEnvironments :: HTMLMathMethod -> Bool allowsMathEnvironments (MathJax _) = True -allowsMathEnvironments (MathML _) = True +allowsMathEnvironments (MathML) = True allowsMathEnvironments (WebTeX _) = True allowsMathEnvironments _ = False |