emacs - 如何编写 Emacs 函数以用指定文本包裹标记区域

Question

我对elisp不太熟悉，正在努力学习。在 emacs 中，我希望能够执行以下操作:

1. 通过 C 空间标记
2. 转到我想要标记结束的位置，这样我就有一个突出显示的区域，假设它是“突出显示的文本”
3. 按下按键序列
4. 让 emacs 要求我输入一些文本，例如“plot”，然后

5. 将突出显示的文本更改为“plot(突出显示的文本)”。也就是说，我想用括号将突出显示的文本括起来，并在其前面加上我输入的文本。

   (defun wrap-text ()
       )
   

我想函数的输入将是突出显示的文本，但我不知道从哪里开始查找。另一个困难的部分是输入文本部分。有人可以指导我吗？谢谢。

Answer 1

对于您的情况，这应该有效:

(defun wrap-text (b e txt)
  "simple wrapper"
  (interactive "r\nMEnter text to wrap with: ")
  (save-restriction
    (narrow-to-region b e)
    (goto-char (point-min))
    (insert txt)
    (insert "(")
    (goto-char (point-max))
    (insert ")")))

(global-set-key (kbd "C-x M-w") 'wrap-text)