12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 |
- ;;; jao-skel-lisp.el --- skeleton for lisp-like languages -*- lexical-binding: t; -*-
- ;; Copyright (C) 2003, 2004, 2005, 2008, 2009, 2022 Jose A Ortega Ruiz
- ;; Author: Jose A Ortega Ruiz <jao@gnu.org>
- ;; Keywords: lisp
- ;; This file is free software; you can redistribute it and/or modify
- ;; it under the terms of the GNU General Public License as published by
- ;; the Free Software Foundation; either version 3, or (at your option)
- ;; any later version.
- ;; This file is distributed in the hope that it will be useful,
- ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
- ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- ;; GNU General Public License for more details.
- ;; You should have received a copy of the GNU General Public License
- ;; along with GNU Emacs; see the file COPYING. If not, write to
- ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- ;; Boston, MA 02111-1307, USA.
- ;;; Commentary:
- ;; Skeleton for lisp like languages
- ;;; Code:
- (require 'jao-skel)
- (define-skeleton jao-skel-lisp-file
- "Lisp file header"
- "Brief description: "
- ";; " (file-name-nondirectory (buffer-file-name)) " -- " str ""
- ?\n
- (jao-skel-copyright-lines ";; ")
- ?\n
- (jao-skel-insert-license)
- \n ";;; Comentary: " \n \n ";; " _ \n
- \n ";;; Code: " \n \n \n \n
- '(when (eq major-mode 'emacs-lisp-mode)
- (insert (format "\n(provide '%s)\n" (jao-skel-basename))))
- ";;; " (file-name-nondirectory (buffer-file-name)) " ends here"
- \n
- \n)
- (jao-skel-install "\\.\\(scm\\|ss\\|lisp\\|cl\\)\\'"
- 'jao-skel-lisp-file)
- (provide 'jao-skel-lisp)
- ;;; jao-skel-lisp.el ends here
|