Emacs org-mode:选择最后一个单词，插入链接

Question

我想编写一个emacs lisp函数，它选择最后一个单词并将其链接到kill ring中的最后一项。我写了以下代码：

(defun link-last-word-from-kill ()
    (interactive)
    (push-mark)
    (backward-word)
    (org-insert-link 0 (yank) (buffer-substring (region-beginning) (region-end)))
    (pop-mark)
    )

我不确定我是否正确地阅读了(org-insert-link &optional COMPLETE-FILE LINK-LOCATION DESCRIPTION)；我想我已经将链接位置设置为kill-ring，但是仍然提示我输入要链接的内容。我误解了什么？

Answer 1

我认为yank使用缓冲区作为输出。此外，您还需要用链接替换前面的单词。我选择只创建带有标记的组织模式链接，例如：[http://foo.invalid]

(defun link-last-word-from-kill ()
    (interactive)
    (push-mark)
    (backward-word)
    (insert "[[")
    (yank)
    (insert "][")
    (forward-word)
    (insert "]]")
    (pop-mark))