diff options
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index a0f6f17f0..84fd404b1 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -1062,8 +1062,11 @@ inlineToHtml opts inline = do case writerHTMLMathMethod opts of WebTeX url -> do let imtag = if html5 then H5.img else H.img + let s = case t of + InlineMath -> "\\textstyle " + DisplayMath -> "" let m = imtag ! A.style "vertical-align:middle" - ! A.src (toValue $ url ++ urlEncode str) + ! A.src (toValue $ url ++ urlEncode (s ++ str)) ! A.alt (toValue str) ! A.title (toValue str) let brtag = if html5 then H5.br else H.br |