Common Lispのdefpackageとin-packageを入力するskeleton
とりあえず作成。
(defmacro defun-abbrev (funcname table abbrev &rest body) "Defun a function and define an abbrev. Note that `table' is abbrev table to use." `(progn (defun ,funcname ,@body) (define-abbrev-function ,table ,abbrev ',funcname))) (defun-abbrev cl-skeleton-defpackage lisp-mode-abbrev-table "pkgx" (pkgname uses) "Insert defpackage and in-package." (interactive "sdefpackage package: \nsUse packages: ") (skeleton-insert '("" nil "(defpackage " pkgname > \n " (:use common-lisp " uses "))" > \n "(in-package :" pkgname ")" > \n )))