Rei*_*ror 5 emacs org-mode dired
我正在处理充满图像的目录,这些图像是档案中文档的照片。我正在编写带有关于这些内容的注释的 org 文件,我希望能够更快、更轻松地浏览图像(例如使用image-dired)并将链接与我的注释一起复制到 org-mode 文件中。
我的工作设置如下所示:

我的问题是:
这里有一些代码可以使图像处理变得更容易。只需将其复制到*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)
Run Code Online (Sandbox Code Playgroud)
在组织模式下按F9 n可切换到下一个图像,按F9 i可插入当前图像的链接。根据您的喜好重新绑定按键。
| 归档时间: |
|
| 查看次数: |
841 次 |
| 最近记录: |