, . *scratch* M-x eval-buffer.
(defun my-next-image ()
(interactive)
(save-excursion
(with-current-buffer "*image-dired*"
(image-dired-forward-image)
(image-dired-display-thumbnail-original-image))))
(defun my-prev-image ()
(interactive)
(save-excursion
(with-current-buffer "*image-dired*"
(image-dired-backward-image)
(image-dired-display-thumbnail-original-image))))
(defun my-insert-current-image-path ()
(interactive)
(insert
(concat
"[["
(save-excursion
(with-current-buffer "*image-dired*"
(image-dired-original-file-name)))
"]]")))
(define-key org-mode-map (kbd "<f9> n") 'my-next-image)
(define-key org-mode-map (kbd "<f9> p") 'my-prev-image)
(define-key org-mode-map (kbd "<f9> i") 'my-insert-current-image-path)
F9 n, org, F9 i, . .