emacs - 如何在 emacs org-mode 中将函数限制为子树？

Question

我广泛使用 org-mode 和 org-attach 这意味着一个 org 文件可以有多个附件目录。

在 worg 上，我发现了 Matt Lundi 的一个功能，它可以查看所有内容属于整个文件的附件并使用 ido 进行浏览。

我想将此函数限制为一个子树，这将使它对于我的用例来说更有用。

因为我对 emacs 并不陌生，但我几乎完全不识字在这里提问。

这是函数:

(defun my-ido-find-org-attach ()
  "Find files in org-attachment directory"
  (interactive)
  (let* ((enable-recursive-minibuffers t)
         (files (find-lisp-find-files org-attach-directory "."))
         (file-assoc-list
          (mapcar (lambda (x)
                    (cons (file-name-nondirectory x)
                          x))
                  files))
         (filename-list
          (remove-duplicates (mapcar #'car file-assoc-list)
                             :test #'string=))
         (filename (ido-completing-read "Org attachments: " filename-list nil t))
         (longname (cdr (assoc filename file-assoc-list))))
    (ido-set-current-directory
     (if (file-directory-p longname)
         longname
       (file-name-directory longname)))
    (setq ido-exit 'refresh
          ido-text-init ido-text
          ido-rotate-temp t)
    (exit-minibuffer)))

Answer 1

也许我遗漏了一些东西，但首先调用org-narrow-to-subtree应该做你想做的事情(之后调用widen来恢复它)。