@@ -503,18 +503,10 @@ inlineToHtml opts inline =
503503 Left _ -> inlineListToHtml opts
504504 (readTeXMath str) >>= return .
505505 (thespan ! [theclass "math"])
506− MathJax _ -> do
507− let dt = if t == InlineMath
508− then DisplayInline
509− else DisplayBlock
510− let conf = useShortEmptyTags (const False)
511− defaultConfigPP
512− case texMathToMathML dt str of
513− Right r -> return $ primHtml $
514− ppcElement conf r
515− Left _ -> inlineListToHtml opts
516− (readTeXMath str) >>= return .
517− (thespan ! [theclass "math"])
506+ MathJax _ -> return $ primHtml $
507+ case t of
508+ InlineMath -> "\\(" ++ str ++ "\\)"
509+ DisplayMath -> "\\[" ++ str ++ "\\]"
518510 PlainMath -> do
519511 x <- inlineListToHtml opts (readTeXMath str)
520512 let m = thespan ! [theclass "math"] $ x