mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Allow yanking images to html-mode

Browse source 
* lisp/net/mailcap.el (mailcap-mime-type-to-extension): Autoload.
* lisp/textmodes/sgml-mode.el (html-mode--image-yank-handler): New
function.
(html-mode): Accept image/*.
This commit is contained in:
Lars Ingebrigtsen 2021-11-07 00:08:36 +01:00
parent 0804b61f82
commit 465cb1fff1
3 changed files with 21 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/textmodes/sgml-mode.el
View file

@ -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.