diff options
author | jao <jao@gnu.org> | 2022-03-13 00:39:14 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-03-13 00:39:14 +0000 |
commit | 747696945a91464e34af86f49d373d1d7a9130c0 (patch) | |
tree | a8d1cdc9b13ea30ddb94fce11f7b720edab51041 /lib/skels/jao-skel-s48.el | |
parent | bf94b3f00b45794aa4ca70b665efde7ca205d8c8 (diff) | |
download | elibs-747696945a91464e34af86f49d373d1d7a9130c0.tar.gz elibs-747696945a91464e34af86f49d373d1d7a9130c0.tar.bz2 |
skels: obsolete skeletons back to the closet
Diffstat (limited to 'lib/skels/jao-skel-s48.el')
-rw-r--r-- | lib/skels/jao-skel-s48.el | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/lib/skels/jao-skel-s48.el b/lib/skels/jao-skel-s48.el deleted file mode 100644 index 30e749f..0000000 --- a/lib/skels/jao-skel-s48.el +++ /dev/null @@ -1,61 +0,0 @@ -;;; 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 |