diff options
| author | John MacFarlane <[email protected]> | 2022-12-04 10:19:54 -0800 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2022-12-04 10:20:22 -0800 |
| commit | 634696fb8784dd1f3f294e0773ce55c64eef3e00 (patch) | |
| tree | 5f7dea6252e64d19fd2ab669bd6593d427ef59ae | |
| parent | 732ef205462d6a5109dbb588058050b2753bc5cf (diff) | |
HTML writer: remove obsolete stuff about mathml-script.
This was a shim we used to include for mathml support.
We don't do anything with this any more, so this is dead code.
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 19186e91c..a327f07f3 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -341,15 +341,7 @@ pandocToHtml opts (Pandoc meta blocks) = do H.link ! A.rel "stylesheet" ! A.href (toValue $ url <> "katex.min.css") - _ -> case lookupContext "mathml-script" - (writerVariables opts) of - Just s | not (stHtml5 st) -> - H.script ! A.type_ "text/javascript" - $ preEscapedString - ("/*<![CDATA[*/\n" <> T.unpack s <> - "/*]]>*/\n") - | otherwise -> mempty - Nothing -> mempty + _ -> mempty let mCss :: Maybe [Text] = lookupContext "css" metadata let context :: Context Text context = (if stHighlighting st |