From 52310eb4708f0737ad87ac5f1217571b3dc73a78 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 31 Dec 2014 14:51:23 -0800 Subject: SelfContained: Add `;charset=utf-8` to script mime type if missing. Closes #1842. --- src/Text/Pandoc/SelfContained.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs index 5b8f7a75a..a7f7f251e 100644 --- a/src/Text/Pandoc/SelfContained.hs +++ b/src/Text/Pandoc/SelfContained.hs @@ -67,7 +67,10 @@ convertTag media sourceURL t@(TagOpen "script" as) = [] -> return t src -> do (raw, mime) <- getRaw media sourceURL (fromAttrib "type" t) src - let enc = "data:" ++ mime ++ "," ++ escapeURIString isOk (toString raw) + let mime' = if ';' `elem` mime + then mime -- mime type already has charset + else mime ++ ";charset=utf-8" + let enc = "data:" ++ mime' ++ "," ++ escapeURIString isOk (toString raw) return $ TagOpen "script" (("src",enc) : [(x,y) | (x,y) <- as, x /= "src"]) convertTag media sourceURL t@(TagOpen "link" as) = case fromAttrib "href" t of -- cgit v1.2.3