Insert CDATA around inline js/css in HTML, slidy.

2011-07-24 08:23:38 -07:00 · 2011-07-24 08:23:38 -07:00 · c872d9f7ef
commit c872d9f7ef
parent 835dc412d2
2 changed files with 3 additions and 2 deletions
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@ -142,7 +142,8 @@ pandocToHtml opts (Pandoc (Meta title' authors' date') blocks) = do
                           _ -> case lookup "mathml-script" (writerVariables opts) of
                                      Just s ->
                                        script ! [thetype "text/javascript"] <<
-                                           primHtml s
+                                           primHtml ("/*<![CDATA[*/\n" ++ s ++
+                                                     "/*]]>*/\n")
                                      Nothing -> noHtml
                else noHtml
  let newvars = [("highlighting-css", defaultHighlightingCss) |
--- a/2
+++ b/2
@ -1 +1 @@
-Subproject commit 8cb5fef740725ee51ffed5022faa097f21336bcd
+Subproject commit 8cd8b19598fa898498a7883d081f51615aa5fc12