From 377c27befedd8f9e54975296a71bf4c954399d2d Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 26 Feb 2017 22:48:02 +0100 Subject: `--self-contained`: don't incorporate elements with `data-external="1"`. You can leave an external link as it is by adding the attribute data-external="1" to the element. Pandoc will then not try to incorporate its content when `--self-contained` is used. This is similar to a feature already supported by the EPUB writer. Closes #2656. --- src/Text/Pandoc/SelfContained.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Text') diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs index e6d859421..378b2fe98 100644 --- a/src/Text/Pandoc/SelfContained.hs +++ b/src/Text/Pandoc/SelfContained.hs @@ -69,6 +69,8 @@ makeDataURI (mime, raw) = convertTags :: PandocMonad m => Maybe String -> [Tag String] -> m [Tag String] convertTags _ [] = return [] +convertTags sourceURL (t@TagOpen{}:ts) + | fromAttrib "data-external" t == "1" = (t:) <$> convertTags sourceURL ts convertTags sourceURL (t@(TagOpen tagname as):ts) | tagname `elem` ["img", "embed", "video", "input", "audio", "source", "track"] = do -- cgit v1.2.3