aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorPhilip Pesca <phil.pesca@gmail.com>2019-07-23 12:21:32 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2019-07-23 12:21:31 -0700
commitbc508534a648b900c683e60b1cc9681ed606a723 (patch)
tree99e6aca4fb752472e7cb9964ddcb40358bdea69c /src/Text/Pandoc
parentdb5f6dd4fe6e17dc67719f85847f569839cd3169 (diff)
downloadpandoc-bc508534a648b900c683e60b1cc9681ed606a723.tar.gz
HTML writer: render inline formulas correctly with --webtex (#5656)
We add `\textstyle` to the beginning of the formula to ensure it will be rendered in inline style. Closes #5655.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs5
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