export inline svg images with htmlize
authorEric Schulte <schulte.eric@gmail.com>
Tue, 21 May 2013 00:15:05 +0000 (18:15 -0600)
committerEric Schulte <schulte.eric@gmail.com>
Tue, 21 May 2013 12:42:14 +0000 (06:42 -0600)
contrib/lisp/htmlize.el

index c03d605..3bf5949 100644 (file)
@@ -601,10 +601,12 @@ list."
                      (htmlize-attr-escape (file-relative-name file))
                      alt-attr)))
           ((plist-get imgprops :data)
-           (format "<img src=\"data:image/%s;base64,%s\"%s />"
-                   (or (plist-get imgprops :type) "")
-                   (base64-encode-string (plist-get imgprops :data))
-                   alt-attr)))))
+          (if (equalp (plist-get imgprops :type) 'svg)
+              (plist-get imgprops :data)
+            (format "<img src=\"data:image/%s;base64,%s\"%s />"
+                    (or (plist-get imgprops :type) "")
+                    (base64-encode-string (plist-get imgprops :data))
+                    alt-attr))))))
 
 (defconst htmlize-ellipsis "...")
 (put-text-property 0 (length htmlize-ellipsis) 'htmlize-ellipsis t htmlize-ellipsis)