如何使用组织注释文件？

Question

我最近发现了 org-annotate-file。我想用它来注释 pdf 文档或音乐文件或我计算机上的任何其他文件，并将我的注释写入 annotations.org 文件中。我不想在 pdf 中包含注释。但我不明白“访问文件”是什么意思？它必须是 emacs 可以打开的文件吗？

但更一般地说，是否有一个包可以执行以下操作：我以 dired 模式访问一个目录，在我感兴趣的某个主题上标记一堆文件，然后通过一个命令将文件的链接发送到我的annotations.org文件（可能作为标题下的副标题，可能是目录名称），然后我可以在注释文件中写入注释。然后，通过一个命令，我应该能够访问任何文件（组织模式允许）或在外部程序中打开它。这在某些包中可能吗？

谢谢。

Answer 1

当然是可以做到的。然而，我发现的似乎是 org-annotate-file.el 的实际代码
这里，似乎没有接受注释一个尚未打开的文件（访问的意思是打开的），因为注释的函数使用当前打开的文件作为名称的来源。 org-annotate-file 的当前实现是这样的：

(defun org-annotate-file ()
  "Put a section for the current file into your annotation file"
  (interactive)
  (error-if-no-file)
  (org-annotate-file-show-section))

至少你可以修改它以接受任意文件（如果你提供它）：

(defun org-annotate-file (&optional filename)
  "Put a section for the current file into your annotation file"
  (interactive "FFile to tag: ")
  ; if a file is specified, bypass the check for error when no file
  (if filename
     (org-annotate-file-show-section filename)
     (progn
      (error-if-no-file)
      (org-annotate-file-show-section))))

每当你执行 时，都会要求你输入文件名Mx 组织注释文件。

您还必须更改 org-annotate-file-show-section 来接受文件名或缓冲区。第一个让应该是这样的：

(defun org-annotate-file-show-section (&optional buffer-or-file)
  "Visit the buffer named `org-annotate-file-storage-file' and
show the relevant section"
  (let* ((line (buffer-substring-no-properties (point-at-bol) (point-at-eol)))
                 (filename (if (stringp buffer-or-file)
                            buffer-or-file
                            (get-filename buffer-or-file (buffer-file-name))))
                 (link (get-link filename))
         (search-link (org-make-link-string
                       (concat "file:" filename "::" line)
                               (org-annotate-file-prettyfy-desc line))))
        (show-annotations filename link)
.... rest of the code....

可以从这里开始 dired 集成，但我仍然不熟悉 dired API...

编辑：我正在 bitbucket 中创建一个分支来进行修改。我发现该实用程序非常有用，我自己也可能会使用它。我将在这里发布链接。这是： https://bitbucket.org/dsevilla/org-annotate-file/源代码