Return to autoinsert.el CVS log

Up to [Apple XNU] / GNUtools / emacs / lisp

Annotation of GNUtools/emacs/lisp/autoinsert.el, revision 1.1.1.1

1.1       root        1: ;; Automatic mode-dependent insertion of text into new files.
                      2: ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
                      3: 
                      4: ;; This file is part of GNU Emacs.
                      5: 
                      6: ;; GNU Emacs is free software; you can redistribute it and/or modify
                      7: ;; it under the terms of the GNU General Public License as published by
                      8: ;; the Free Software Foundation; either version 1, or (at your option)
                      9: ;; any later version.
                     10: 
                     11: ;; GNU Emacs is distributed in the hope that it will be useful,
                     12: ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
                     13: ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     14: ;; GNU General Public License for more details.
                     15: 
                     16: ;; You should have received a copy of the GNU General Public License
                     17: ;; along with GNU Emacs; see the file COPYING.  If not, write to
                     18: ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
                     19: 
                     20: ;;; autoinsert.el
                     21: 
                     22: ;;;  Abstract:
                     23: ;;;
                     24: ;;;  The following defines an association list for files to be
                     25: ;;;  automatically inserted when a new file is created, and a function
                     26: ;;;  which automatically inserts these files; the idea is to insert
                     27: ;;;  default files much as the mode is automatically set using
                     28: ;;;  auto-mode-alist.
                     29: ;;;
                     30: ;;;  The auto-insert-alist consists of dotted pairs of
                     31: ;;;  ( REGEXP . FILENAME ) where REGEXP is a regular expression, and
                     32: ;;;  FILENAME is the file name of a file which is to be inserted into
                     33: ;;;  all new files matching the regular expression with which it is
                     34: ;;;  paired.
                     35: ;;;
                     36: ;;;  To use: 
                     37: ;;;     load autoinsert.el
                     38: ;;;     setq auto-insert-directory to an appropriate value, which
                     39: ;;;       must end in "/"
                     40: ;;;
                     41: ;;;  Author:  Charlie Martin
                     42: ;;;           Department of Computer Science and
                     43: ;;;           National Biomedical Simulation Resource
                     44: ;;;           Box 3709
                     45: ;;;           Duke University Medical Center
                     46: ;;;           Durham, NC 27710
                     47: ;;;          ([email protected],mcnc!duke!crm) 
                     48: ;;;
                     49: ;;;  Date: Fri Jul  1 16:15:31 EDT 1988
                     50: 
                     51: (defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex")
                     52:                            ("\\.c$" . "c-insert.c")
                     53:                            ("\\.h$" . "h-insert.c")
                     54:                            ("[Mm]akefile" . "makefile.inc")
                     55:                            ("\\.bib$" . "tex-insert.tex"))
                     56:   "Alist specifying text to insert by default into a new file.
                     57: Elements look like (REGEXP . FILENAME); if the new file's name
                     58: matches REGEXP, then the file FILENAME is inserted into the buffer.
                     59: Only the first matching element is effective.")
                     60: 
                     61: ;;; Establish a default value for auto-insert-directory
                     62: (defvar auto-insert-directory "~/insert/"
                     63:   "Directory from which auto-inserted files are taken.")
                     64: 
                     65: (defun insert-auto-insert-files ()
                     66:   "Insert default contents into a new file.
                     67: Matches the visited file name against the elements of `auto-insert-alist'."
                     68:   (let ((alist auto-insert-alist)
                     69:        ;; remove backup suffixes from file name
                     70:         (name (file-name-sans-versions buffer-file-name))
                     71:         (insert-file nil))
                     72: 
                     73:     ;; find first matching alist entry
                     74:     (while (and (not insert-file) alist)
                     75:       (if (string-match (car (car alist)) name)
                     76:           (setq insert-file (cdr (car alist)))
                     77:         (setq alist (cdr alist))))
                     78: 
                     79:     ;; Now, if we found an appropriate insert file, insert it
                     80:     (if insert-file
                     81:         (let ((file (concat auto-insert-directory insert-file)))
                     82:           (if (file-readable-p file)
                     83:               (insert-file-contents file)
                     84:             (message "Auto-insert: file %s not found" file)
                     85:            (sleep-for 1))))))
                     86: 
                     87: ;; Make this feature take effect when a nonexistent file is visited.
                     88: (setq find-file-not-found-hooks
                     89:       (cons 'insert-auto-insert-files
                     90:            find-file-not-found-hooks))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.