From 4f0c5c30809f09bd700cd47035f86a3db1c64669 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 25 Feb 2015 21:40:40 -0800
Subject: HTML writer:  include raw latex blocks if --mathjax specified.

Closes #1938.
---
 src/Text/Pandoc/Writers/HTML.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index ef00ea036..cadac16a0 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -457,8 +457,13 @@ blockToHtml opts (Div attr@(_,classes,_) bs) = do
                   NoSlides       -> addAttrs opts' attr $ H.div $ contents'
                   _              -> mempty
         else addAttrs opts attr $ H.div $ contents'
-blockToHtml _ (RawBlock f str)
+blockToHtml opts (RawBlock f str)
   | f == Format "html" = return $ preEscapedString str
+  | f == Format "latex" =
+      case writerHTMLMathMethod opts of
+           MathJax _  -> do modify (\st -> st{ stMath = True })
+                            return $ toHtml str
+           _          -> return mempty
   | otherwise          = return mempty
 blockToHtml opts (HorizontalRule) = return $ if writerHtml5 opts then H5.hr else H.hr
 blockToHtml opts (CodeBlock (id',classes,keyvals) rawCode) = do
@@ -769,6 +774,8 @@ inlineToHtml opts inline =
                           case writerHTMLMathMethod opts of
                                LaTeXMathML _ -> do modify (\st -> st {stMath = True})
                                                    return $ toHtml str
+                               MathJax _     -> do modify (\st -> st {stMath = True})
+                                                   return $ toHtml str
                                _             -> return mempty
       | f == Format "html" -> return $ preEscapedString str
       | otherwise          -> return mempty
-- 
cgit v1.2.3