diff options
author | jao <jao@gnu.org> | 2022-03-13 00:27:29 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-03-13 00:27:29 +0000 |
commit | bf94b3f00b45794aa4ca70b665efde7ca205d8c8 (patch) | |
tree | d21dfa767ace14e838958e8db6d6d28f1d866ca3 /lib/skels/jao-skel-s48.el | |
parent | 24a5d48fd1246ec4dbdec1050696b9bac49be049 (diff) | |
download | elibs-bf94b3f00b45794aa4ca70b665efde7ca205d8c8.tar.gz elibs-bf94b3f00b45794aa4ca70b665efde7ca205d8c8.tar.bz2 |
skels: all files jao-prefixed
Diffstat (limited to 'lib/skels/jao-skel-s48.el')
-rw-r--r-- | lib/skels/jao-skel-s48.el | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/lib/skels/jao-skel-s48.el b/lib/skels/jao-skel-s48.el new file mode 100644 index 0000000..30e749f --- /dev/null +++ b/lib/skels/jao-skel-s48.el @@ -0,0 +1,61 @@ +;;; s48-skel.el --- skeleton for s48 + +;; Copyright (C) 2003, 2004, 2005, 2006, 2008, 2009 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 s48/slime48 like languages + +;;; Code: + +(require 'common-skel) +(require 'lisp-skel) + +(define-skeleton jao-skel-s48-file + "Slime/Scheme48 file header" + "Package: " + ";; -*- mode: scheme48; scheme48-package: " str " -*-" + ?\n + (jao-co-line ";; ") + ?\n + (jao-insert-copyright-file) + \n ";;; Comentary: " \n \n ";; " _ \n + \n ";;; Code: " \n \n \n \n + ";;; " (file-name-nondirectory (buffer-file-name)) " ends here" + '(scheme48-mode) + \n + \n) + +(define-skeleton jao-skel-s48-file-maybe + "Choose between a s48 file and a plain scheme one" + nil + '(if (y-or-n-p "Is this a s48 file? ") (jao-skel-s48-file) + (jao-skel-lisp-file)) + '(hack-local-variables)) + + +(jao-provide-skel "\\.scm\\'" 'jao-skel-s48-file-maybe) + + +(provide 's48-skel) + + +;;; lisp-skel.el ends here |