aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2011-07-24 08:23:38 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2011-07-24 08:23:38 -0700
commitc872d9f7ef97a77adf0778047d9a30fb15815346 (patch)
treee2388bf8500002f78ee8a2edc13cbfd21a8c551e /src/Text/Pandoc/Writers
parent835dc412d21e82a18c20f9494ea3ec36598b9e17 (diff)
downloadpandoc-c872d9f7ef97a77adf0778047d9a30fb15815346.tar.gz
Insert CDATA around inline js/css in HTML, slidy.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 4c82f2c85..fe6ee5db4 100644
--- 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) |