From f027fd0eff899146dd8b69e3e5a6565ca1c4da0b Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 24 Nov 2011 10:04:25 -0800
Subject: --self-contained now works with `<video>` as well as `<img>`.

---
 src/Text/Pandoc/SelfContained.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src')

diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs
index 116083fba..1bc081e0e 100644
--- a/src/Text/Pandoc/SelfContained.hs
+++ b/src/Text/Pandoc/SelfContained.hs
@@ -209,6 +209,13 @@ convertTag userdata t@(TagOpen "img" as) =
            (raw, mime) <- getRaw userdata t src
            let enc = "data:" ++ mime ++ ";base64," ++ toString (encode raw)
            return $ TagOpen "img" (("src",enc) : [(x,y) | (x,y) <- as, x /= "src"])
+convertTag userdata t@(TagOpen "video" as) =
+       case fromAttrib "src" t of
+         []   -> return t
+         src  -> do
+           (raw, mime) <- getRaw userdata t src
+           let enc = "data:" ++ mime ++ ";base64," ++ toString (encode raw)
+           return $ TagOpen "video" (("src",enc) : [(x,y) | (x,y) <- as, x /= "src"])
 convertTag userdata t@(TagOpen "script" as) =
   case fromAttrib "src" t of
        []     -> return t
-- 
cgit v1.2.3