From 7fb0878b62328fd3bf80e2142a5d68b314105eb1 Mon Sep 17 00:00:00 2001
From: mdw <mdw>
Date: Mon, 5 Apr 1999 13:44:58 +0000
Subject: [PATCH] Initial revision

---
 .links        |   5 ++
 .skelrc       |   8 ++
 Makefile.am   |  61 ++++++++++++++
 configure.in  |  48 +++++++++++
 skel-init.el  |  13 +++
 skel.el.in    | 252 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 skeleton      |  10 +++
 skeleton.skel |   8 ++
 skeleton.texi | 118 +++++++++++++++++++++++++++
 skelrc        |  87 ++++++++++++++++++++
 skelrc.am     |  14 ++++
 skelrc.c      |  22 +++++
 skelrc.cc     |   4 +
 skelrc.el     |   8 ++
 skelrc.h      |  26 ++++++
 skelrc.in     |  14 ++++
 skelrc.pl     |  15 ++++
 skelrc.pm     |  15 ++++
 skelrc.skel   |   3 +
 skelrc.texi   |  14 ++++
 skelrc.y      |  74 +++++++++++++++++
 21 files changed, 819 insertions(+)
 create mode 100644 .links
 create mode 100644 .skelrc
 create mode 100644 Makefile.am
 create mode 100644 configure.in
 create mode 100644 skel-init.el
 create mode 100644 skel.el.in
 create mode 100644 skeleton
 create mode 100644 skeleton.skel
 create mode 100644 skeleton.texi
 create mode 100644 skelrc
 create mode 100644 skelrc.am
 create mode 100644 skelrc.c
 create mode 100644 skelrc.cc
 create mode 100644 skelrc.el
 create mode 100644 skelrc.h
 create mode 100644 skelrc.in
 create mode 100644 skelrc.pl
 create mode 100644 skelrc.pm
 create mode 100644 skelrc.skel
 create mode 100644 skelrc.texi
 create mode 100644 skelrc.y

diff --git a/.links b/.links
new file mode 100644
index 0000000..264203b
--- /dev/null
+++ b/.links
@@ -0,0 +1,5 @@
+COPYING
+elisp-comp
+install-sh
+missing
+mkinstalldirs
diff --git a/.skelrc b/.skelrc
new file mode 100644
index 0000000..5f8528d
--- /dev/null
+++ b/.skelrc
@@ -0,0 +1,8 @@
+;;; -*-emacs-lisp-*-
+
+(setq skel-alist
+      (append
+       '((author . "Mark Wooding")
+	 (full-title . "Skel")
+	 (program . "Skel"))
+       skel-alist))
diff --git a/Makefile.am b/Makefile.am
new file mode 100644
index 0000000..162746f
--- /dev/null
+++ b/Makefile.am
@@ -0,0 +1,61 @@
+## -*-makefile-*-
+##
+## $Id: Makefile.am,v 1.1 1999/04/05 13:44:59 mdw Exp $
+##
+## Makefile for skel
+##
+## (c) 1998 Mark Wooding
+##
+
+##----- Licensing notice ----------------------------------------------------
+##
+## This file is part of Skel.
+##
+## Skel 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 2 of the License, or
+## (at your option) any later version.
+## 
+## Skel 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 Skel; if not, write to the Free Software Foundation,
+## Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+##----- Revision history ----------------------------------------------------
+##
+## $Log: Makefile.am,v $
+## Revision 1.1  1999/04/05 13:44:59  mdw
+## Initial revision
+##
+
+## --- Basic automake configuration ---
+
+AUTOMAKE_OPTIONS = foreign
+
+## --- Emacs lisp files to build ---
+
+lisp_LISP = skel.el skel-init.el
+ELCFILES = skel.elc
+
+## --- Other things to install ---
+
+pkgdata_DATA = \
+	skeleton skelrc \
+	skelrc.c skelrc.cc skelrc.h skelrc.y \
+	skelrc.el \
+	skelrc.pm skelrc.pl \
+	skelrc.am skelrc.in \
+	skeleton.skel skelrc.skel \
+	skeleton.texi skelrc.texi
+
+## --- Things to distribute ---
+
+EXTRA_DIST = \
+	$(pkgdata_DATA) \
+	skel-init.el
+
+##----- That's all, folks ---------------------------------------------------
diff --git a/configure.in b/configure.in
new file mode 100644
index 0000000..282f23c
--- /dev/null
+++ b/configure.in
@@ -0,0 +1,48 @@
+dnl -*-fundamental-*-
+dnl
+dnl $Id: configure.in,v 1.1 1999/04/05 13:44:59 mdw Exp $
+dnl
+dnl Configuration script for skel
+dnl
+dnl (c) 1998 Mark Wooding
+dnl
+
+dnl ----- Licensing notice --------------------------------------------------
+dnl
+dnl This file is part of Skel.
+dnl
+dnl Skel is free software; you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation; either version 2 of the License, or
+dnl (at your option) any later version.
+dnl 
+dnl Skel is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+dnl GNU General Public License for more details.
+dnl 
+dnl You should have received a copy of the GNU General Public License
+dnl along with Skel; if not, write to the Free Software Foundation,
+dnl Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+dnl ----- Revision history --------------------------------------------------
+dnl
+dnl $Log: configure.in,v $
+dnl Revision 1.1  1999/04/05 13:44:59  mdw
+dnl Initial revision
+dnl
+
+AC_INIT(skel.el.in)
+AM_INIT_AUTOMAKE(skel, 1.0)
+AM_PATH_LISPDIR
+AM_PROG_INSTALL
+
+mdw_prefix="$prefix"
+test "$prefix" = "NONE" && prefix="$ac_default_prefix"
+eval "skeldir=\"$datadir/$PACKAGE\""
+prefix="$mdw_prefix"
+AC_SUBST(skeldir)
+
+AC_OUTPUT(Makefile skel.el)
+
+dnl ----- That's all, folks -------------------------------------------------
diff --git a/skel-init.el b/skel-init.el
new file mode 100644
index 0000000..03503ea
--- /dev/null
+++ b/skel-init.el
@@ -0,0 +1,13 @@
+;;; -*-emacs-lisp-*-
+;;;
+;;; $Id: skel-init.el,v 1.1 1999/04/05 13:44:59 mdw Exp $
+;;;
+;;; Initialise skeleton stuff
+;;;
+;;; (c) 1998 Mark Wooding
+;;;
+
+(autoload 'skel-create-file "skel" nil t)
+(autoload 'skel-create-file-other-window "skel" nil t)
+(autoload 'skel-create-file-other-frame "skel" nil t)
+(provide 'skel-init)
diff --git a/skel.el.in b/skel.el.in
new file mode 100644
index 0000000..d409011
--- /dev/null
+++ b/skel.el.in
@@ -0,0 +1,252 @@
+;;; -*-emacs-lisp-*-
+;;;
+;;; $Id: skel.el.in,v 1.1 1999/04/05 13:44:59 mdw Exp $
+;;;
+;;; Filling in skeletons
+;;;
+;;; (c) 1998 Mark Wooding
+;;;
+
+;;;----- Licensing notice ---------------------------------------------------
+;;;
+;;; This program 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 2 of the License, or
+;;; (at your option) any later version.
+;;; 
+;;; This program 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 this program; if not, write to the Free Software Foundation,
+;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+;;;----- Revision history ---------------------------------------------------
+;;;
+;;; $Log: skel.el.in,v $
+;;; Revision 1.1  1999/04/05 13:44:59  mdw
+;;; Initial revision
+;;;
+
+;;;----- Variables (largely tweakable) --------------------------------------
+
+(defvar skel-directory-list '(".skel" "")
+  "*List of directory names which contain skeleton files.")
+
+(defvar skel-skeleton-path '("@skeldir@" "~/skel" "~/src/skel")
+  "*List of directories to search for skeleton data anyway.")
+
+(defvar skel-skelrc '(".skelrc" "skelrc")
+  "*File containing skeleton substitution data, looked up using the standard
+skeleton search mathod.")
+
+(defvar skel-alist '()
+  "Alist of values to substitute into a skeleton.  It is filled in by skelrc
+files and user interaction.
+
+The alist's keys are symbols, interned from the placeholder strings in the
+skeleton file.  The values are forms to be evaluated.  In the simplest case,
+the form is a string added as a result of user interaction; however, it could
+just as easily be a function call or something similarly complicated.")
+
+;;;----- Finding skeleton files ---------------------------------------------
+
+(defun skel-do-join (acc jfun ll s)
+  "Recursive guts of skel-join."
+  (if ll
+      (if (car ll)
+	  (skel-do-join (skel-do-join acc jfun (cdr ll)
+				      (funcall jfun s (car (car ll))))
+			jfun (cons (cdr (car ll)) (cdr ll)) s)
+	acc)
+    (cons s acc)))
+
+(defun skel-join (jfun base &rest ll)
+  "Return a list built from joining elements from the given lists in order,
+left to right.  JFUN is a function of two arguments which can join items
+together.  BASE is the initial item."
+  (nreverse (skel-do-join nil jfun ll base)))
+
+(defun skel-do-parents (dir acc)
+  "Tail recursive guts of skel-parents"
+  (setq acc (cons dir acc))
+  (setq dir (substring dir 0 (string-match "/[^/]*/?$" dir)))
+  (if (string= dir "")
+      (cons "/" acc)
+    (skel-do-parents dir acc)))
+
+(defun skel-parents (dir)
+  "Returns a list of DIR, DIR's parent directory, etc., all the way up to the
+root."
+  (setq dir (expand-file-name dir))
+  (nreverse (skel-do-parents dir nil)))
+
+(defun skel-do-find (l all acc)
+  (if l
+      (let ((n (car l)))
+	(if (and (file-readable-p n) (file-regular-p n))
+	    (if all
+		(skel-do-find (cdr l) all (cons (abbreviate-file-name n) acc))
+	      (abbreviate-file-name n))
+	  (skel-do-find (cdr l) all acc)))
+    acc))
+
+(defun skel-find-skeleton (name &optional all acc)
+  "Searches for skeleton files.  NAME is the name of the file to find, or
+a list of possible names.
+
+If ALL is nil, or omitted, return only the first matching filename
+encountered.  Otherwise, return a list of all matching names, most `global'
+first.  ACC is a base list to which the matching filenames are prepended."
+
+  ;; --- Build one big list of all the possible names ---
+
+  (let ((l (skel-join (lambda (x y) (if (string= y "")
+					x
+				      (expand-file-name y x)))
+		      nil
+		      (append (skel-parents default-directory)
+			      skel-skeleton-path)
+		      skel-directory-list
+		      (if (listp name) name (cons name nil)))))
+
+    ;; --- Now filter out any which aren't interesting ---
+
+    (skel-do-find l all acc)))
+
+;;;----- Processing file skeletons ------------------------------------------
+
+(defun skel-include (file)
+  "Includes the skeleton rc FILE."
+  (let ((rc (skel-find-skeleton file t)))
+    (while rc
+      (load (car rc) nil t t)
+      (setq rc (cdr rc)))))
+
+(defun skel-lookup (name)
+
+  "Reads the value of symbol NAME in skel-alist.  If there is no currrent
+value, the user is prompted for one."
+
+  ;; --- Resolve NAME into a symbol ---
+
+  (if (stringp name)
+      (setq name (intern name)))
+
+  ;; --- Look up the value ---
+  ;;
+  ;; Add it to the list if we've not seen it before.  Protect ourselves
+  ;; against functions which do regexp matching.
+
+  (let ((pair (assq name skel-alist))
+	value)
+    (if pair
+	(save-match-data (setq value (eval (cdr pair))))
+      (setq value (read-string (format "Value for %s: " name)))
+      (setq skel-alist (cons (cons name value) skel-alist)))
+    value))
+
+(defun skel-do-fill-in ()
+  "Does the actual donkey-work of filling in a file.  For each fill-in area
+in the current buffer, the function looks to see if the item in question has
+been entered into ALIST: if so, it is replaced automatically; otherwise the
+user is promted to enter a string to substitute into the buffer at this
+point."
+  (if (re-search-forward "\\[\\[\\([^]]*\\)\\]\\]" nil t)
+      (progn
+	(replace-match (skel-lookup (match-string 1)) t t nil)
+	(goto-char (match-beginning 0))
+	(skel-do-fill-in))))
+
+;;;----- Creating new files from skeletons ----------------------------------
+
+(defun skel-do-create-file (name switch &optional skel)
+
+  "Does the main work of creating a file based on a skeleton.  The SWITCH
+argument is called to display the buffer."
+
+  ;; --- Some local variables ---
+  ;;
+  ;; This is a little bit of a hack, but do I look like someone who cares?
+
+  (let (ext rc)
+
+    ;; --- Find out if the file's there already ---
+
+    (if (file-exists-p name)
+	(or (yes-or-no-p
+	     (format "File %s already exists.  Overwrite? " name))
+	    (error "Aborted!")))
+
+    ;; --- Fiddle with the filename ---
+
+    (cond ((stringp skel) (let ((extind (string-match "\.[^.]*$" skel)))
+			    (setq ext (and extind (substring skel extind)))))
+	  (skel (progn
+		  (setq ext (read-string "Extension: "))
+		  (or (string= ext "") (setq ext (concat "." ext)))))
+	  (t (let ((extind (string-match "\.[^.]*$" name)))
+	       (setq ext (and extind (substring name extind))))))
+    (setq skel (concat "skeleton" (or ext "")))
+
+    ;; --- Find the skeleton filename ---
+
+    (setq skel (or (skel-find-skeleton skel)
+		   (skel-find-skeleton "skeleton")
+		   (error "Couldn't find skeleton file %s" skel)))
+
+    ;; --- Visit the file and destroy its contents ---
+
+    (funcall switch (find-file-noselect name))
+    (kill-region (point-min) (point-max))
+    (insert-file skel)
+
+    ;; --- Mangle the skeleton data in the file ---
+
+    (make-local-variable 'skel-alist)
+    (setq skel-alist '())
+
+    ;; --- Read the default values to insert ---
+
+    (let ((rc (append
+	       (skel-find-skeleton skel-skelrc t)
+	       (and ext
+		    (skel-find-skeleton
+		     (if (listp skel-skelrc)
+			 (mapcar (lambda (x) (concat x ext)) skel-skelrc)
+		       (concat skel-skelrc ext))
+		     t)))))
+      (while rc
+	(load (car rc) nil t t)
+	(setq rc (cdr rc))))
+
+    ;; --- Now do substitution ---
+
+    (skel-do-fill-in)
+    (not-modified)))
+
+;;;----- User commands ------------------------------------------------------
+
+(defun skel-create-file (name &optional skel)
+  "Creates a new file called NAME and visits it.  If SKEL is non-`nil', it is
+the name of a skeleton file to insert and substitute.  Otherwise the skeleton
+file's name is derived from NAME by taking NAME's extension and appending it
+to `skel'."
+  (interactive "FSkeleton create file: \nP")
+  (skel-do-create-file name 'switch-to-buffer skel))
+
+(defun skel-create-file-other-window (name &optional skel)
+  "Like skel-create-file, but in another window."
+  (interactive "FSkeleton create file in other window: \nP")
+  (skel-do-create-file name 'switch-to-buffer-other-window skel))
+  
+(defun skel-create-file-other-frame (name &optional skel)
+  "Like skel-create-file, but in another frame."
+  (interactive "FSkeleton create file in other frame: \nP")
+  (skel-do-create-file name 'switch-to-buffer-other-frame skel))
+
+;;;----- Is that all there is? ----------------------------------------------
+
+(provide 'skel)
diff --git a/skeleton b/skeleton
new file mode 100644
index 0000000..c5a058f
--- /dev/null
+++ b/skeleton
@@ -0,0 +1,10 @@
+[[new-comment]] -*-[[emacs-mode]]-*-
+[[cont-comment]]
+[[cont-comment]] $Id$
+[[cont-comment]]
+[[cont-comment]] [[purpose]]
+[[cont-comment]]
+[[cont-comment]] (c) [[year]] [[author]]
+[[end-comment]]
+
+[[header]][[trailer]]
\ No newline at end of file
diff --git a/skeleton.skel b/skeleton.skel
new file mode 100644
index 0000000..1891473
--- /dev/null
+++ b/skeleton.skel
@@ -0,0 +1,8 @@
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode '[[target-mode]])
+
+(setq skel-alist
+      (append
+       '((...))
+       skel-alist))
diff --git a/skeleton.texi b/skeleton.texi
new file mode 100644
index 0000000..d505a90
--- /dev/null
+++ b/skeleton.texi
@@ -0,0 +1,118 @@
+\input texinfo @c -*-texinfo-*-
+@c
+@c $Id$
+@c
+@c [[purpose]]
+@c
+@c (c) [[year]] [[author]]
+@c
+
+[[revisions]]@c ----- Standard boilerplate -----------------------------------------------
+
+@c %**start of header
+@setfilename [[basename]].info
+@settitle [[title]]
+@setchapternewpage odd
+@footnotestyle end
+@paragraphindent 0
+@iftex
+@input texinice
+@afourpaper
+@end iftex
+@c %**end of header
+
+@c ----- Useful macros ------------------------------------------------------
+
+@set version 1.0
+
+@c ----- Copyright matters --------------------------------------------------
+
+@c --- The `Info' version ---
+
+@ifinfo
+
+This file documents [[subject]] version
+@value{version}. 
+
+Copyright (c) [[year]] [[author]]
+
+Permission is granted to make and distribute verbatim copies of this
+manual provided the copyright notice and this permission notice are
+preserved on all copies.
+
+@ignore
+Permission is granted to process this file through TeX and print the
+results, provided the printed document carries a copying permission
+notice identical to this one except for the removal of this paragraph
+(this paragraph not being relevant to the printed manual).
+
+@end ignore
+Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided also that the
+sections entitled `Copying' and `GNU General Public License' are
+included exactly as in the original, and provided that the entire
+resulting derived work is distributed under the terms of a permission
+notice identical to this one.
+
+Permission is granted to copy and distribute translations of this manual
+into another language, under the above conditions for modified versions,
+except that this permission notice may be stated in a translation
+approved by the copyright holder.
+
+@end ifinfo
+
+@c --- Printed title page ---
+
+@titlepage
+
+@title [[title]]
+@subtitle [[subtitle]]
+@author [[author]]
+@page
+
+@vskip 0pt plus 1filll
+
+Copyright @copyright{} [[year]] [[author]]
+
+Permission is granted to make and distribute verbatim copies of this
+manual provided the copyright notice and this permission notice are
+preserved on all copies.
+
+Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided also that the
+sections entitled `Copying' and `GNU General Public License' are
+included exactly as in the original, and provided that the entire
+resulting derived work is distributed under the terms of a permission
+notice identical to this one.
+
+Permission is granted to copy and distribute translations of this manual
+into another language, under the above conditions for modified versions,
+except that this permission notice may be stated in a translation
+approved by the copyright holder.
+
+@end titlepage
+
+
+@c --------------------------------------------------------------------------
+@ifinfo
+@node Top, Copying, (dir), (dir)
+@top [[title]]
+
+@menu
+@end menu
+
+@end ifinfo
+
+@c --------------------------------------------------------------------------
+@node Copying, Introduction, Top, Top
+@unnumbered The GNU General Public License
+
+@include gpl.texi
+
+@c --------------------------------------------------------------------------
+@node Introduction,  , Copying, Top
+@unnumbered Introduction
+
+@c --------------------------------------------------------------------------
+@contents
+@bye
diff --git a/skelrc b/skelrc
new file mode 100644
index 0000000..53922de
--- /dev/null
+++ b/skelrc
@@ -0,0 +1,87 @@
+;;; -*-emacs-lisp-*-
+
+(defun skelrc-banner (title &optional block)
+  (let* ((start (skel-lookup 'block-start))
+	 (end (skel-lookup (if block 'block-banner-knob 'block-banner-end)))
+	 (barlen (- 77 (length (concat start end " ----- " title)))))
+    (concat start "----- " title " " (make-string barlen ?-) end)))
+
+(defvar skelrc-forced-major-mode 0)
+
+(defun skelrc-force-mode (new-mode &optional priority)
+  (or priority (setq priority 1))
+  (if (> priority skelrc-forced-major-mode)
+      (progn
+	(or (eq new-mode major-mode)
+	    (let ((old-skel-alist skel-alist))
+	      (funcall new-mode)
+	      (make-variable-buffer-local 'skel-alist)
+	      (setq skel-alist old-skel-alist)))
+	(make-variable-buffer-local 'skelrc-forced-major-mode)
+	(setq skelrc-forced-major-mode priority))))
+
+(defun skelrc-decode-major-mode ()
+  (let* ((name (symbol-name major-mode))
+	 (endind (string-match "-mode$" name)))
+    (if endind (substring name 0 endind)
+      (name))))
+
+(setq skelrc-gpl
+"[[cont-comment]] This file is part of [[full-title]].
+[[cont-comment]]
+[[cont-comment]] [[program]] is free software; you can redistribute it and/or modify
+[[cont-comment]] it under the terms of the GNU General Public License as published by
+[[cont-comment]] the Free Software Foundation; either version 2 of the License, or
+[[cont-comment]] (at your option) any later version.
+[[cont-comment]] 
+[[cont-comment]] [[program]] is distributed in the hope that it will be useful,
+[[cont-comment]] but WITHOUT ANY WARRANTY; without even the implied warranty of
+[[cont-comment]] MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+[[cont-comment]] GNU General Public License for more details.
+[[cont-comment]] 
+[[cont-comment]] You should have received a copy of the GNU General Public License
+[[cont-comment]] along with [[program]]; if not, write to the Free Software Foundation,
+[[cont-comment]] Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.")
+
+(setq skelrc-lgpl
+"[[cont-comment]] This file is part of [[full-title]].
+[[cont-comment]]
+[[cont-comment]] [[program]] is free software; you can redistribute it and/or modify
+[[cont-comment]] it under the terms of the GNU Library General Public License as
+[[cont-comment]]  published by the Free Software Foundation; either version 2 of the
+[[cont-comment]] License, or (at your option) any later version.
+[[cont-comment]] 
+[[cont-comment]] [[program]] is distributed in the hope that it will be useful,
+[[cont-comment]] but WITHOUT ANY WARRANTY; without even the implied warranty of
+[[cont-comment]] MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+[[cont-comment]] GNU Library General Public License for more details.
+[[cont-comment]] 
+[[cont-comment]] You should have received a copy of the GNU Library General Public
+[[cont-comment]] License along with [[program]]; if not, write to the Free Software
+[[cont-comment]] Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.")
+
+(defun skel-basename ()
+  (file-name-sans-extension (file-name-nondirectory buffer-file-name)))
+
+(setq skel-alist
+      (append
+       '((emacs-mode . (skelrc-decode-major-mode))
+	 (year . (substring (current-time-string) 20 24))
+	 (header . "[[licence]][[revisions]][[preamble]]")
+	 (basename . (skel-basename))
+	 (licence . "[[licence-banner]]\n[[cont-comment]]\n[[licence-text]][[block-end]]\n\n")
+	 (licence-banner . (skelrc-banner "Licensing notice" t))
+	 (licence-text . "[[gpl]]")
+	 (gpl . skelrc-gpl)
+	 (lgpl . skelrc-lgpl)
+	 (revisions . "[[revision-banner]]\n[[cont-comment]]\n[[cont-comment]] $Log$[[block-end]]\n\n")
+	 (revision-banner . (skelrc-banner "Revision history" t))
+	 (preamble . "")
+	 (trailer . "[[tag-line]][[postamble]]\n")
+	 (postamble . "")
+	 (tag-line . (skelrc-banner "That's all, folks"))
+	 (block-start . (skel-lookup 'new-comment))
+	 (block-banner-knob . "")
+	 (block-banner-end . "")
+	 (block-end . ""))
+       skel-alist))
diff --git a/skelrc.am b/skelrc.am
new file mode 100644
index 0000000..1047b25
--- /dev/null
+++ b/skelrc.am
@@ -0,0 +1,14 @@
+;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'makefile-mode)
+
+(setq skel-alist
+      (append
+       '((new-comment . "##")
+	 (cont-comment . "##")
+	 (end-comment . "##")
+	 (block-start . "##")
+	 (block-banner-knob . "")
+	 (block-banner-end . "")
+	 (block-end . ""))
+       skel-alist))
diff --git a/skelrc.c b/skelrc.c
new file mode 100644
index 0000000..864ac49
--- /dev/null
+++ b/skelrc.c
@@ -0,0 +1,22 @@
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'c-mode)
+
+(setq skel-alist
+      (append
+       '((new-comment . "/*")
+	 (cont-comment . " *")
+	 (end-comment . " */")
+	 (block-start . "/*")
+	 (block-banner-knob . "* ")
+	 (block-banner-end . "*/")
+	 (block-end . "\n */")
+	 (preamble . "[[includes]][[structures]][[main-code]]")
+	 (includes . "[[includes-banner]]\n\n[[headers]]")
+	 (includes-banner . (skelrc-banner "Header files"))
+	 (headers . "")
+	 (structures . "[[struct-banner]]\n\n")
+	 (struct-banner . (skelrc-banner "Data structures"))
+	 (main-code . "[[main-code-banner]]\n\n")
+	 (main-code-banner . (skelrc-banner "Main code")))
+       skel-alist))
diff --git a/skelrc.cc b/skelrc.cc
new file mode 100644
index 0000000..5c1dd3d
--- /dev/null
+++ b/skelrc.cc
@@ -0,0 +1,4 @@
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'c++-mode)
+(skel-include "skelrc.c")
diff --git a/skelrc.el b/skelrc.el
new file mode 100644
index 0000000..10a057c
--- /dev/null
+++ b/skelrc.el
@@ -0,0 +1,8 @@
+;;; -*-emacs-lisp-*-
+
+(setq skel-alist
+      (append
+       '((new-comment . ";;;")
+	 (cont-comment . ";;;")
+	 (end-comment . ";;;"))
+       skel-alist))
diff --git a/skelrc.h b/skelrc.h
new file mode 100644
index 0000000..f0309db
--- /dev/null
+++ b/skelrc.h
@@ -0,0 +1,26 @@
+;;; -*-emacs-lisp-*-
+
+(skel-include "skelrc.c")
+
+(defun skelrc-c-guard-name ()
+  (if buffer-file-name
+      (upcase (file-name-sans-extension (file-name-nondirectory
+					 buffer-file-name)))
+    (skel-lookup 'include-guard-name)))
+
+(setq skel-alist
+      (append
+       '((preamble . "[[guard]][[c++-guard]][[includes]][[structures]][[functions]]")
+	 (guard . "#ifndef [[guard-name]]_H\n#define [[guard-name]]_H\n\n")
+	 (guard-name . (skelrc-c-guard-name))
+	 (c++-guard . "#ifdef __cplusplus\n  extern \"C\" {\n#endif\n\n")
+	 (includes . "[[includes-banner]]\n\n[[headers]]")
+	 (includes-banner . (skelrc-banner "Header files"))
+	 (headers . "")
+	 (structures . "[[struct-banner]]\n\n")
+	 (struct-banner . (skelrc-banner "Data structures"))
+	 (functions . "[[func-banner]]\n\n")
+	 (func-banner . (skelrc-banner "Functions provided"))
+	 (postamble . "\n\n[[c++-unguard]]#endif")
+	 (c++-unguard . "#ifdef __cplusplus\n  }\n#endif\n\n"))
+       skel-alist))
diff --git a/skelrc.in b/skelrc.in
new file mode 100644
index 0000000..d1f7bb6
--- /dev/null
+++ b/skelrc.in
@@ -0,0 +1,14 @@
+;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'fundamental-mode)
+
+(setq skel-alist
+      (append
+       '((new-comment . "dnl")
+	 (cont-comment . "dnl")
+	 (end-comment . "dnl")
+	 (block-start . "dnl ")
+	 (block-banner-knob . "")
+	 (block-banner-end . "")
+	 (block-end . ""))
+       skel-alist))
diff --git a/skelrc.pl b/skelrc.pl
new file mode 100644
index 0000000..5f0b123
--- /dev/null
+++ b/skelrc.pl
@@ -0,0 +1,15 @@
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'perl-mode)
+
+(setq skel-alist
+      (append
+       '((new-comment . "#")
+	 (cont-comment . "#")
+	 (end-comment . "#")
+	 (block-start . "#")
+	 (block-banner-knob . "")
+	 (block-banner-end . "")
+	 (block-end . "")
+	 (preamble . ""))
+       skel-alist))
diff --git a/skelrc.pm b/skelrc.pm
new file mode 100644
index 0000000..5f0b123
--- /dev/null
+++ b/skelrc.pm
@@ -0,0 +1,15 @@
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'perl-mode)
+
+(setq skel-alist
+      (append
+       '((new-comment . "#")
+	 (cont-comment . "#")
+	 (end-comment . "#")
+	 (block-start . "#")
+	 (block-banner-knob . "")
+	 (block-banner-end . "")
+	 (block-end . "")
+	 (preamble . ""))
+       skel-alist))
diff --git a/skelrc.skel b/skelrc.skel
new file mode 100644
index 0000000..95ced9b
--- /dev/null
+++ b/skelrc.skel
@@ -0,0 +1,3 @@
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'emacs-lisp-mode)
diff --git a/skelrc.texi b/skelrc.texi
new file mode 100644
index 0000000..f23e0e3
--- /dev/null
+++ b/skelrc.texi
@@ -0,0 +1,14 @@
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'texinfo-mode)
+
+(setq skel-alist
+      (append
+       '((new-comment . "@c")
+	 (cont-comment . "@c")
+	 (end-comment . "@c")
+	 (block-start . "@c ")
+	 (block-banner-knob . "")
+	 (block-banner-end . "")
+	 (block-end . ""))
+       skel-alist))
diff --git a/skelrc.y b/skelrc.y
new file mode 100644
index 0000000..4015573
--- /dev/null
+++ b/skelrc.y
@@ -0,0 +1,74 @@
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'c-mode)
+
+(setq skel-alist
+      (append
+       `((new-comment . "/*")
+	 (cont-comment . " *")
+	 (end-comment . " */")
+	 (block-start . "/*")
+	 (block-banner-knob . "* ")
+	 (block-banner-end . "*/")
+	 (block-end . "\n */")
+	 (preamble . "[[c-stuff]][[yacc-stuff]][[c-code]]")
+
+	 ;; --- Heavy-duty C preamble to the parser ---
+
+	 (c-stuff . "[[includes]][[macros]][[depends]][[references]]")
+	 (includes . "[[includes-banner]]\n%{\n\n[[headers]]")
+	 (includes-banner . (skelrc-banner "Header files"))
+	 (headers . "")
+	 (macros . "[[macros-banner]]\n\n[[macros-body]]")
+	 (macros-banner . (skelrc-banner "Parser control macros"))
+	 (macros-body . "#define YYDEBUG 1\n#define YYERROR_VERBOSE\n\n")
+	 (depends . "[[deps-banner]]\n\n[[deps-body]]")
+	 (deps-banner . (skelrc-banner "External dependencies"))
+	 (deps-body . "extern int yylex(void);\n\n")
+	 (references . "[[refs-banner]]\n\n[[refs-body]]")
+	 (refs-banner . (skelrc-banner "Forward references"))
+	 (refs-body . "static int yyerror(const char */*e*/);\n\n")
+
+	 ;; --- Yacc preamble and main parser ---
+
+	 (yacc-stuff . "[[yacc-decls]][[tokens]][[nonterms]][[yacc-parser]]")
+
+	 (yacc-decls . "[[decls-banner]]%}\n\n[[decls-body]]")
+	 (decls-banner . (skelrc-banner "Yacc declarations"))
+	 (decls-body . ,(concat "%expect 0\n"
+				"%start ...\n"
+				"\n"
+				"/* --- Stack type --- */\n"
+				"\n"
+				"%union {\n"
+				"}\n"
+				"\n"))
+	 (tokens . "[[toks-banner]]\n\n")
+	 (toks-banner . (skelrc-banner "Token declarations"))
+	 (nonterms . "[[nonterms-banner]]\n\n")
+	 (nonterms-banner . (skelrc-banner "Nonterminal declarations"))
+
+	 (yacc-parser . "[[parser-banner]]\n%%\n\n")
+	 (parser-banner . (skelrc-banner "Grammar rules"))
+
+	 ;; --- C code stuck on the end ---
+
+	 (c-code . "[[c-code-banner]]\n%%\n\n[[yyerror]]")
+	 (c-code-banner . (skelrc-banner "C code"))
+	 (yyerror . ,(concat "/* --- @yyerror@ --- *\n"
+			     " *\n"
+			     " * Arguments:\t@const char *e@ = "
+			     "error message text\n"
+			     " *\n"
+			     " * Returns:\t---\n"
+			     " *\n"
+			     " * Use:\t\tHandles errors reported by "
+			     "the parser.\n"
+			     " */\n"
+			     "\n"
+			     "static void yyerror(const char *e)\n"
+			     "{\n"
+			     "  fprintf(stderr, \"%s\\n\", e);\n"
+			     "}\n"
+			     "\n")))
+       skel-alist))
-- 
2.11.0