diff options
author | Debian Haskell Group <pkg-haskell-maintainers@lists.alioth.debian.org> | 2018-04-24 11:43:06 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2018-04-24 11:43:06 -0700 |
commit | 92bcf6e4b806a013e1889453468f2ed5565c3044 (patch) | |
tree | 6d070cfff74188da01aa1dfc066e32db17631021 /src/Text/Pandoc | |
parent | 209b2bd368a7b9287a1878a91e0cde54333eee9d (diff) |
_online_latexmathml_default
Gbp-Pq: Name 1001_online_latexmathml_default.patch
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/App.hs | 11 | ||||
-rw-r--r-- | src/Text/Pandoc/Options.hs | 2 | ||||
-rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
3 files changed, 6 insertions, 9 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index 26c754cd6..b0f54b036 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -351,12 +351,6 @@ convertWithOpts opts = do maybe return (addStringAsVariable "epub-cover-image") (optEpubCoverImage opts) >>= - (\vars -> case optHTMLMathMethod opts of - LaTeXMathML Nothing -> do - s <- UTF8.toString <$> readDataFile "LaTeXMathML.js" - return $ ("mathml-script", s) : vars - _ -> return vars) - >>= (\vars -> if format == "dzslides" then do dztempl <- UTF8.toString <$> readDataFile @@ -1396,7 +1390,10 @@ options = (OptArg (\arg opt -> do deprecatedOption "--latexmathml, --asciimathml, -m" "" - return opt { optHTMLMathMethod = LaTeXMathML arg }) + let url' = case arg of + Just u -> u + Nothing -> "http://math.etsu.edu/LaTeXMathML/LaTeXMathML.js" + return opt { optHTMLMathMethod = LaTeXMathML url' }) "URL") "" -- "Use LaTeXMathML script in html output" diff --git a/src/Text/Pandoc/Options.hs b/src/Text/Pandoc/Options.hs index bd4ab252b..47ba262c7 100644 --- a/src/Text/Pandoc/Options.hs +++ b/src/Text/Pandoc/Options.hs @@ -104,7 +104,7 @@ defaultAbbrevs = Set.fromList data EPUBVersion = EPUB2 | EPUB3 deriving (Eq, Show, Read, Data, Typeable, Generic) data HTMLMathMethod = PlainMath - | LaTeXMathML (Maybe String) -- url of LaTeXMathML.js + | LaTeXMathML String -- url of LaTeXMathML.js | JsMath (Maybe String) -- url of jsMath load script | GladTeX | WebTeX String -- url of TeX->image script. diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 1647df7ea..6b9c4339b 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -259,7 +259,7 @@ pandocToHtml opts (Pandoc meta blocks) = do notes <- footnoteSection opts (reverse (stNotes st)) let thebody = blocks' >> notes let math = case writerHTMLMathMethod opts of - LaTeXMathML (Just url) -> + LaTeXMathML url -> H.script ! A.src (toValue url) ! A.type_ "text/javascript" $ mempty |