Emacs 将链接从图像定向复制到组织模式

我正在处理的目录中有很多图片，这些图片是档案中文件的照片。我正在用这些内容的注释编写组织文件，我希望能够更快、更容易地浏览图像（例如，使用图像dired），并将链接复制到组织模式文件中，与我的注释一起

我的工作设置如下所示：

我的问题是：

• 如何将当前显示图像的链接自动复制到组织中
• 是否有任何简单的方法可以从组织窗口中控制图像驱动图片（前后浏览、旋转）
• 有没有其他模式或工具，我应该看看

---

这里有一些代码，可以使处理图像更容易。只需将其复制到您的

*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)

（取消我的下一个图像（）
（互动）
（省去远足
（使用当前缓冲区“*图像驱动*”
（图像直接前进图像）
（图像直接显示缩略图原始图像）））
（卸载我的上一个图像（）
（互动）
（省去远足
（使用当前缓冲区“*图像驱动*”
（图像向后拖动图像）
（图像直接显示缩略图原始图像）））
（取消我的插入当前图像路径（）
（互动）
（插入
（康卡特）
"[["
（省去远足
（使用当前缓冲区“*图像驱动*”
（图像驱动原始文件名）））
"]]")))
（定义关键组织模式图（kbd“n”）“我的下一张图片”）
（定义关键组织模式图（kbd“p”）“我的上一张图片”）
（定义关键组织模式映射（kbd“i”）'我的插入当前图像路径）

---

按

F9 n

切换到下一个图像，而在组织模式下，按

F9 i

插入指向当前图像的链接。根据您的喜好重新绑定键。

我知道您不应该在SE上说“谢谢”，但这是一个很好的答案，效果非常好。模式

（保存远足（使用当前缓冲区…）

是我可以在许多其他地方使用的模式。@很高兴我能提供帮助，祝你的博士学位好运。