diff options
| -rw-r--r-- | etc/NEWS | 2 | ||||
| -rw-r--r-- | lisp/net/mailcap.el | 1 | ||||
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 19 |
3 files changed, 21 insertions, 1 deletions
@@ -220,7 +220,7 @@ If non-nil, 'C-c C-a' will put attached files at the end of the message. *** Message Mode now supports image yanking. --- -*** HTML Mode now supports text/html yanking. +*** HTML Mode now supports text/html and image/* yanking. ** Gnus diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el index 0ad1a53e846..2c687557181 100644 --- a/lisp/net/mailcap.el +++ b/lisp/net/mailcap.el @@ -1068,6 +1068,7 @@ For instance, \"foo.png\" will result in \"image/png\"." (match-string 1 file-name) ""))) +;;;###autoload (defun mailcap-mime-type-to-extension (mime-type) "Return a file name extension based on a mime type. For instance, `image/png' will result in `png'." diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index c9d43b6ef86..2b3db0bfeb2 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -2416,6 +2416,7 @@ To work around that, do: (setq imenu-create-index-function 'html-imenu-index) (register-yank-media-handler 'text/html #'html-mode--html-yank-handler) + (register-yank-media-handler "image/.*" #'html-mode--image-yank-handler) (setq-local sgml-empty-tags ;; From HTML-4.01's loose.dtd, parsed with @@ -2436,6 +2437,24 @@ To work around that, do: (insert html) (sgml-pretty-print (point-min) (point-max)))) +(defun html-mode--image-yank-handler (type image) + (let ((file (read-file-name "Save %s image to: "))) + (when (file-directory-p file) + (user-error "%s is a directory")) + (when (and (file-exists-p file) + (not (yes-or-no-p "%s exists; overwrite?"))) + (user-error "%s exists")) + (with-temp-buffer + (set-buffer-multibyte nil) + (insert image) + (write-region (point-min) (point-max) file)) + (insert-image + (create-image file (mailcap-mime-type-to-extension type) nil + :max-width 200 + :max-height 200) + " ") + (insert (format "<img src=%S>\n" (file-relative-name file))))) + (defvar html-imenu-regexp "\\s-*<h\\([1-9]\\)[^\n<>]*>\\(<[^\n<>]*>\\)*\\s-*\\([^\n<>]*\\)" "A regular expression matching a head line to be added to the menu. |