diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-26 02:19:20 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-26 02:19:20 +0000 |
commit | f2e21a8476d758cc5503983c7581adb18321a0f3 (patch) | |
tree | dfd752408a0233cdd9915a9f3779236b98e88104 /src/Text/Pandoc/Writers/HTML.hs | |
parent | 831fe2c6cf237805818959cc603f59f7a979bb62 (diff) | |
download | pandoc-f2e21a8476d758cc5503983c7581adb18321a0f3.tar.gz |
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
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 11 |
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 |