Re: I'm looking for a way to paste images directly from the clipboard into Emacs

[Jean Louis <bugs@gnu.support>]

* Eli Zaretskii <eliz@gnu.org> [2024-11-11 23:16]:
> > Date: Mon, 11 Nov 2024 22:26:39 +0300
> > From: Jean Louis <bugs@gnu.support>
> > 
> > I'm looking for a way to paste images directly from the clipboard into Emacs. If an image is detected, I would like to perform various operations on it, such as saving it to a file or recording it. Is there an existing method or package in Emacs that can facilitate this functionality? Any guidance or tips would be greatly appreciated!
> 
> Emacs 30 and later has the new command yank-media for that purpose.

That is very nice. I have done this and now it works well, I just need
to make more extensions. I can see multiple image MIME types being
offered from various programs.

(defun hyperscope-yank-media-handler (mime-type data)
  "HANDLER function to be registered with `yank-media-handler'."
  (let* ((extension (cond ((and (string-match "image" (symbol-name mime-type))
				(string-match "jpeg" (symbol-name mime-type)))
			   ".jpg")
			  ((and (string-match "image" (symbol-name mime-type))
				(string-match "png" (symbol-name mime-type)))
			   ".png")
			  (t (rcd-warning-message "No option for MIME type: %s" (symbol-name mime-type)))))
	 (data-file (concat (file-name-as-directory (getenv "TMPDIR")) "TEMP-IMAGE-" (rcd-timestamp-date-time) "-" (rcd-random-word 4) extension)))
    (string-to-file-force data data-file)
    (hyperscope-store-files nil (list data-file))
    (rcd-message "Stored %s as file %s" (symbol-name mime-type) data-file)))

(defun hyperscope-capture-clipboard-media ()
  "Capture any clipboard image into the Hyperscope Dynamic Knowledge Repository."
  (interactive)
  (with-temp-buffer
    (yank-media-handler "image/.*" 'hyperscope-yank-media-handler)
    (yank-media)))



Jean Louis