jao-skel-lisp.el 1.6 KB

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