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

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

[Jean Louis]

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!

Jean Louis

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

[Eli Zaretskii]

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

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

[Jean Louis]

* 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