emacs - 如何创建函数直接根据当前单词创建文件并打开？

Question

我知道 Org-mode 有一个[C-c C-o]用于打开链接的组合键。我想将一个函数附加到这个组合键中。该功能会检测点下是否有链接，如果没有，则根据点下的单词或选定的字符串创建一个文件并自动打开它。该文件的文件名包含单词或所选字符串。喜欢org-mode.org。

我希望这个附加功能不会影响原来的组合键功能。

- - 更新 - -

我认为 Emacs Lisp 功能defadvice可能就是为了这个。但我对 Emacs Lisp 有点了解。追加简单吗？

Answer 1

无法想象这种东西对于创建需要目录的文件非常有用。唯一合理的是当前目录。因此，如果它不存在，此函数将在那里创建它。

链接它的希望很小，org-open-at-point因为它很大并且不会返回失败代码。

(defun find-file-at-point-ex ()
  (interactive)
  (let ((filename
         (expand-file-name
          (thing-at-point 'filename))))
    (when (or
           (file-exists-p filename)
           (y-or-n-p (format "Create %s?" filename)))
      (find-file filename))))