Changed how ASCIIMathML is handled:

+ -m|--asciimathml option now takes an *optional* argument,
  the URL to an asciiMathML.js script.  This is much better
  in situations where multiple files with math must be served,
  as the script can be cached.
+ If the argument is provided, a link is inserted; otherwise,
  the whole script is inserted as before.
+ Nothing is inserted unless there is inline LaTeX.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@799 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 10 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 4637ffde4..c860d73e6 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -29,6 +29,7 @@ Conversion of 'Pandoc' documents to HTML.
 -}
 module Text.Pandoc.Writers.HTML ( writeHtml, writeHtmlString ) where
 import Text.Pandoc.Definition
+import Text.Pandoc.ASCIIMathML
 import Text.Pandoc.Shared
 import Text.Pandoc.Entities (decodeEntities)
 import Text.Regex ( mkRegex, matchRegex )
@@ -358,7 +359,15 @@ inlineToHtml opts inline =
                                               primHtmlChar "rdquo") in 
                         do contents <- inlineListToHtml opts lst
                            return $ leftQuote +++ contents +++ rightQuote
-    (TeX str)        -> return $ stringToHtml str
+    (TeX str)        -> do if writerUseASCIIMathML opts
+                              then addToHeader $
+                                   case writerASCIIMathMLURL opts of
+                                        Just path -> script !  [src path, 
+                                                     thetype "text/javascript"] $
+                                                     noHtml
+                                        Nothing   -> primHtml asciiMathMLScript
+                              else return ()
+                           return $ stringToHtml str
     (HtmlInline str) -> return $ primHtml str 
     (Link txt (src,tit)) ->
                         do linkText <- inlineListToHtml opts txt