diff options
author | John MacFarlane <jgm@berkeley.edu> | 2013-11-01 14:27:22 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2013-11-01 14:28:24 -0700 |
commit | 0d95c15e8316eb28128bdd4c9c2f98e29f13f564 (patch) | |
tree | 4f63a3a9f11686c286c2ca3e3f1414add92e6ff5 /src/Text/Pandoc/Writers/HTML.hs | |
parent | ab0ffe6549261313410207a0b5beba9284135962 (diff) | |
download | pandoc-0d95c15e8316eb28128bdd4c9c2f98e29f13f564.tar.gz |
TexMath: Export readTeXMath', which attends to display/inline.
Deprecate readTeXMath, and use readTeXMath' in all the writers.
Require texmath >= 0.6.5.
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 8a71c3a2e..c1cca291b 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -685,14 +685,14 @@ inlineToHtml opts inline = Right r -> return $ preEscapedString $ ppcElement conf r Left _ -> inlineListToHtml opts - (readTeXMath str) >>= return . + (readTeXMath' t str) >>= return . (H.span ! A.class_ "math") MathJax _ -> return $ H.span ! A.class_ "math" $ toHtml $ case t of InlineMath -> "\\(" ++ str ++ "\\)" DisplayMath -> "\\[" ++ str ++ "\\]" PlainMath -> do - x <- inlineListToHtml opts (readTeXMath str) + x <- inlineListToHtml opts (readTeXMath' t str) let m = H.span ! A.class_ "math" $ x let brtag = if writerHtml5 opts then H5.br else H.br return $ case t of |