Question

我写了一些几乎相同的功能，除了他们的名字。例如：

; x is name, such as function/paragraph/line/etc.
(defun my-x-function
 (interactive)
 (mark-x) (do-more-stuff) (modify-x))

有没有办法自动生成这样的功能？我有一种感觉这是宏做的，但我不知道如何使用它们。任何帮助，包括一个小例子都会很棒。

谢谢！

Answer 1

是的，这正是宏所做的。这是一个简单的宏，它根据您指定的模式构建函数：

(defmacro make-my-function (name)
  (list 'defun (intern (format "my-%s-function" name)) ()
        (list 'interactive)
        (list (intern (format "mark-%s" name)))
        (list 'do-more-stuff)
        (list (intern (format "modify-%s" name)))))

您可以将此宏复制到Emacs中的*scratch*缓冲区并对其进行评估，然后检查它是否有效：

(make-my-function x) ; type control-J here
my-x-function ; <-- Emacs's output
(symbol-function 'my-x-function) ; type control-J here
(lambda nil (interactive) (mark-x) (do-more-stuff) (modify-x)) ; <-- Emacs's output

更常见的是，可以使用backquote工具更简洁地编写宏，但所有宏的工作方式基本上与上面的示例相同。

Answer 2

宏可以做到这一点，但是有很多模板模块可供emacs做类似的工作。我使用一个名为yasnippet.el的东西来快速生成代码。例如，在C源文件中，如果我键入for<TAB>，我会得到一个for循环模板;它允许我填写模板，设置变量名称，限制和内部循环内容。

看起来像这样：

alt text http://i39.tinypic.com/o8tbmq.jpg

您可以为喜欢的任何内容设置模板。函数定义，if语句，switch语句等等。为不同的模式设置不同的模板。 C中for循环的模板与C＃中for循环的模板不同，依此类推。非常方便。

elisp宏写一个函数？

2 个答案: