макрос elisp, чтобы написать функцию?

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)))))

Вы можете скопировать этот макрос в буфер *scratch* в Emacs и оценить его, а затем убедиться, что он работает следующим образом:

(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; это позволяет мне заполнить шаблон, задав имя переменной, ограничения и содержимое внутреннего цикла.

выглядит так:

Вы можете настроить шаблоны для чего угодно. Определения функций, операторы if, операторы switch, что угодно. Установите разные шаблоны для разных режимов. Шаблон для цикла for в C отличается от шаблона для цикла for в C # и так далее. Очень удобно.