将Emacs宏转换为Elisp

Question

有没有一种方式可以将emacs宏转换成elisp，不像M-x insert-kbd-macro的方式，而是将实际的活动转换为elisp语句。

谢谢您的帮助。

- Sahas

Answer 1

抱歉，没有简单的方法将emacs宏转换为elisp。

更新：Emacs已经开始朝着这个方向进行了一些工作。请参见this thread以获得起点。尽管有活动，但仍然不可能（2010年6月）。

我能想到的第一个原因是处理交互式命令并将按键转换为函数的正确参数。

考虑以下序列： C-x b .em TAB RET 这开始了一个切换到缓冲区的命令，输入三个字符，使用TAB补全来完成它，并使用RET接受。在一个唯一的TAB补全的emacs会话中，最终结果的等效lisp是：

(switch-to-buffer ".emacs")

在完成时，还有各种类型的扩展交互（dabbrev，hippie-expand等）。

一个起点可以是 M-x edit-last-kbd-macro，它会显示如下内容（在我的情况下）：

;; Keyboard Macro Editor.  Press C-c C-c to finish; press C-x k RET to cancel.
;; Original keys: C-x b .em <tab> RET

Command: last-kbd-macro
Key: none

Macro:

C-x b       ;; switch-to-buffer
.em         ;; self-insert-command * 3
<tab>       ;; pabbrev-expand-maybe
RET         ;; newline-and-indent

至少这些是一些函数名。但你会发现RET被标记为'newline-and-indent，这是不正确的，因为在宏执行时，迷你缓冲区是活动的，而绑定实际上是'minibuffer-complete-and-exit。同样，TAB的正确绑定是'minibuffer-complete。

- Trey Jackson

Answer 2

我制作了一个软件包，可以在https://github.com/Silex/elmacro找到。它有一些小问题，但是它的功能还算不错......例如，下面的宏:

F3 C-e M-b M-u C-a C-n F4

生成以下elisp代码：

(defun upcase-last-word ()
  "Change me!"
  (interactive)
  (move-end-of-line 1)
  (backward-word 1)
  (upcase-word 1)
  (move-beginning-of-line 1)
  (next-line 1 1))

- Silex

---

谢谢！这是一个非常有趣和简单的学习命令背后原理的方式。你可以复制粘贴代码并完成，或者研究它以了解实际发生的情况。对于像(insert ". ")与“真正输入”命令之间的区别以及适用于当前模式的命令，这真的很酷。强大！ - grettke

很高兴你喜欢它 ;-) - Silex

我刚刚偶然发现了这个。我也喜欢，谢谢Silex。 - AAAfarmclub