emacs-interactive

函数模板

;; 函数定义
(defun new-func(func-name)
    "create func template"
    ;; 模板插入
    (insert (concat "(defun " func-name "()\n  ())"))
    ;; 光标回退到括号
    (backward-char 2))

交互函数

(defun new-interactive()
    "create interactive func template"
    (insert (concat "(defun ()\n  (interactive)\n  ())"))
    (backward-char 22))

交互模板

(defun new-interactive(func-name)
    (interactive "sfunc-name: ")
    (insert (concat "(defun " func-name "(interactive)\n  ())"))
    (backward-char 2))

按键绑定

(global-set-key (kbd "C-c C-f" 'new-interactive))

更多参数

(defun more-param(a b c)
    (interactive "fa: \nsb: \nsc: ")
    (message (concat a b c)))