aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-01-31 10:47:48 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-01-31 10:47:48 -0800
commite9a270d03b4eb1d7deb807d0bd2a940dde5c9fde (patch)
treec9c25da26783a55dd8efd8799319b01e1d9e399f /src/Text
parent38808284155ea83b7287a622759f566ccf884421 (diff)
downloadpandoc-e9a270d03b4eb1d7deb807d0bd2a940dde5c9fde.tar.gz
Don't include mathml javascript for html5 output.
mathml is supposed to be supported in HTML5.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 8ca7aca62..f46d08570 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -147,10 +147,11 @@ pandocToHtml opts (Pandoc (Meta title' authors' date') blocks) = do
! A.type_ "text/javascript"
$ mempty
_ -> case lookup "mathml-script" (writerVariables opts) of
- Just s ->
+ Just s | not (writerHtml5 opts) ->
H.script ! A.type_ "text/javascript"
$ preEscapedString
("/*<![CDATA[*/\n" ++ s ++ "/*]]>*/\n")
+ | otherwise -> mempty
Nothing -> mempty
else mempty
let newvars = [("highlighting-css",