1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
;; Author: Charlie Martin <crm@cs.duke.edu>
;; Created: 01 Jul 1988
;; This file is part of GNU Emacs.
;; GNU Emacs 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, or (at your option)
;; any later version.
;; GNU Emacs 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, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;;; Abstract:
;;;
;;; The following defines an association list for files to be
;;; automatically inserted when a new file is created, and a function
;;; which automatically inserts these files; the idea is to insert
;;; default files much as the mode is automatically set using
;;; auto-mode-alist.
;;;
;;; The auto-insert-alist consists of dotted pairs of
;;; ( REGEXP . FILENAME ) where REGEXP is a regular expression, and
;;; FILENAME is the file name of a file which is to be inserted into
;;; all new files matching the regular expression with which it is
;;; paired.
;;;
;;; To use:
;;; load autoinsert.el
;;; setq auto-insert-directory to an appropriate value, which
;;; must end in "/"
;;;
;;; Author: Charlie Martin
;;; Department of Computer Science and
;;; National Biomedical Simulation Resource
;;; Box 3709
;;; Duke University Medical Center
;;; Durham, NC 27710
;;; (crm@cs.duke.edu,mcnc!duke!crm)
;;; Code:
(defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex")
("\\.c$" . "c-insert.c")
("\\.h$" . "h-insert.c")
("\\.cc$" . "c-insert.cc")
("\\.C$" . "c-insert.cc")
("\\.H$" . "h-insert.cc")
("[Mm]akefile" . "makefile.inc")
("\\.bib$" . "tex-insert.tex"))
"A list specifying text to insert by default into a new file.
Elements look like (REGEXP . FILENAME); if the new file's name
matches REGEXP, then the file FILENAME is inserted into the buffer.
Only the first matching element is effective.")
;;; Establish a default value for auto-insert-directory
(defvar auto-insert-directory "~/insert/"
"*Directory from which auto-inserted files are taken.")
(defun insert-auto-insert-files ()
"Insert default contents into a new file.
Matches the visited file name against the elements of `auto-insert-alist'."
(let ((alist auto-insert-alist)
;; remove backup suffixes from file name
(name (file-name-sans-versions buffer-file-name))
(insert-file nil))
;; find first matching alist entry
(let ((case-fold-search (eq system-type 'vax-vms)))
(while (and (not insert-file) alist)
(if (string-match (car (car alist)) name)
(setq insert-file (cdr (car alist)))
(setq alist (cdr alist)))))
;; Now, if we found an appropriate insert file, insert it
(if insert-file
(let ((file (concat auto-insert-directory insert-file)))
(if (file-readable-p file)
(progn
(insert-file-contents file)
(set-buffer-modified-p nil))
(message "Auto-insert: file %s not found" file)
(sleep-for 1))))))
;; Make this feature take effect when a nonexistent file is visited.
(setq find-file-not-found-hooks
(cons 'insert-auto-insert-files
find-file-not-found-hooks))
;;; autoinsert.el ends here
|
