branch: elpa/htmlize
commit 54ac89c5edc7a83344cf51d8be08e1e701f88863
Author: Tobias Zawada <t...@esi-group.com>
Commit: Hrvoje Nikšić <hnik...@gmail.com>
Fixes #49. Translate Emacs image types into Mime image types
---
htmlize.el | 15 +++++++++++----
1 file changed, 11 insertions(+), 4 deletions(-)
diff --git a/htmlize.el b/htmlize.el
index 944d00522f..3fc6265762 100644
--- a/htmlize.el
+++ b/htmlize.el
@@ -339,6 +339,12 @@ output.")
"Hook run by `htmlize-file' after htmlizing a file, but before saving it.")
(defvar htmlize-buffer-places)
+
+(defconst htmlize-image-mime-type-alist
+ '((svg . "svg+xml")
+ )
+ "Alist mapping Emacs image types to Mime media types.
+https://www.iana.org/assignments/media-types/media-types.xhtml#image";)
;;; Some cross-Emacs compatibility.
@@ -589,10 +595,11 @@ 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)))))
+ (let ((image-type (plist-get imgprops :type)))
+ (format "<img src=\"data:image/%s;base64,%s\"%s />"
+ (or (alist-get image-type htmlize-image-mime-type-alist)
image-type "")
+ (base64-encode-string (plist-get imgprops :data))
+ alt-attr))))))
(defconst htmlize-ellipsis (propertize "..." 'htmlize-ellipsis t))
