annotate lisp/autoinsert.el @ 16842:72276b334084 before-thomas-posix1996 glibc-2_0_2 libc-970108 libc-970109 libc-970110 libc-970111 libc-970112 libc-970113 libc-970114 libc-970115 libc-970116 libc-970117 libc-970118 libc-970119 libc-970120 libc-970121 libc-970122 libc-970123 libc-970124 libc-970125 libc-970126 libc-970127 libc-970128 libc-970129 libc-970130 libc-970131 libc-970201 libc-970202 libc-970203 libc-970204 libc-970205 libc-970206 libc-970207 libc-970208 libc-970209 libc-970210 libc-970211 libc-970212 libc-970213 libc-970214 libc-970215 libc-970216 libc-970217 libc-970218 libc-970219 libc-970220 libc-970221 libc-970222 libc-970223 libc-970224 libc-970225 libc-970226 libc-970227 libc-970228 libc-970301 libc-970302 libc-970303 libc-970304 libc-970305 libc-970306 libc-970307 libc-970308 libc-970309 libc-970310 libc-970311 libc-970312 libc-970313 libc-970314 libc-970315 libc-970316 libc-970317 libc-970318 libc-970319 libc-970320 libc-970321 libc-970322 libc-970323 libc-970324 libc20x-970306 libc20x-97031 libc20x-970316 libc20x-970318 libc20x-970319 libc20x-970404 root-libc-2_0_x-branch

Add hppa1.1-hitachi-hiuxmpp support, passed along by rms.
author David J. MacKenzie <djm@gnu.org>
date Tue, 07 Jan 1997 19:29:28 +0000
parents aacf08497202
children 852464ce5d6a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 180
diff changeset
1 ;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14153
diff changeset
2
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
3 ;; Copyright (C) 1985, 1986, 1987, 1994, 1995 Free Software Foundation, Inc.
845
213978acbc1e entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
4
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
5 ;; Author: Charlie Martin <crm@cs.duke.edu>
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
6 ;; Adapted-By: Daniel.Pfeiffer@Informatik.START.dbp.de, fax (+49 69) 7588-2389
180
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
180
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 ;; any later version.
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 ;; GNU General Public License for more details.
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14153
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14153
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14153
diff changeset
23 ;; Boston, MA 02111-1307, USA.
180
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
25 ;;; Commentary:
180
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
27 ;; The following defines an association list for text to be
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
28 ;; automatically inserted when a new file is created, and a function
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
29 ;; which automatically inserts these files; the idea is to insert
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
30 ;; default text much as the mode is automatically set using
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
31 ;; auto-mode-alist.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
32 ;;
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
33 ;; To use:
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
34 ;; (add-hook 'find-file-hooks 'auto-insert)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
35 ;; setq auto-insert-directory to an appropriate slash-terminated value
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
36 ;;
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
37 ;; Author: Charlie Martin
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
38 ;; Department of Computer Science and
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
39 ;; National Biomedical Simulation Resource
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
40 ;; Box 3709
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
41 ;; Duke University Medical Center
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
42 ;; Durham, NC 27710
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
43 ;; (crm@cs.duke.edu,mcnc!duke!crm)
180
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
45 ;;; Code:
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
46
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
47 (defvar auto-insert 'not-modified
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
48 "*Controls automatic insertion into newly found empty files:
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
49 nil do nothing
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
50 t insert if possible
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
51 other insert if possible, but mark as unmodified.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
52 Insertion is possible when something appropriate is found in
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
53 `auto-insert-alist'. When the insertion is marked as unmodified, you can
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
54 save it with \\[write-file] RET.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
55 This variable is used when `auto-insert' is called as a function, e.g.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
56 when you do (add-hook 'find-file-hooks 'auto-insert).
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
57 With \\[auto-insert], this is always treated as if it were `t'.")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
58
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
59
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
60 (defvar auto-insert-query 'function
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
61 "*If non-`nil', ask user before auto-inserting.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
62 When this is `function', only ask when called non-interactively.")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
63
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
64
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
65 (defvar auto-insert-prompt "Perform %s auto-insertion? "
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
66 "*Prompt to use when querying whether to auto-insert.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
67 If this contains a %s, that will be replaced by the matching rule.")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
68
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
69
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
70 (defvar auto-insert-alist
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
71 '((("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++ header")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
72 (upcase (concat (file-name-nondirectory
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
73 (substring buffer-file-name 0 (match-beginning 0)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
74 "_"
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
75 (substring buffer-file-name (1+ (match-beginning 0)))))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
76 "#ifndef " str \n
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
77 "#define " str "\n\n"
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
78 _ "\n\n#endif")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
79
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
80 (("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
81 nil
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
82 "#include \""
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
83 ;; nop without latest cc-mode
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
84 (and (fboundp 'c-companion-file)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
85 ;(file-readable-p (c-companion-file 'name))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
86 (file-name-nondirectory (c-companion-file 'name))) & ?\"
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
87 | -10)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
88
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
89 ("[Mm]akefile\\'" . "makefile.inc")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
90
14153
3e949d37e46f (auto-insert-alist): For html-mode, use `sgml-tag'.
Richard M. Stallman <rms@gnu.org>
parents: 12502
diff changeset
91 (html-mode . (lambda () (sgml-tag "html")))
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
92
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
93 (plain-tex-mode . "tex-insert.tex")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
94 (bibtex-mode . "tex-insert.tex")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
95 (latex-mode
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
96 ;; should try to offer completing read for these
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
97 "options, RET: "
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
98 "\\documentstyle[" str & ?\] | -1
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
99 ?{ (read-string "class: ") "}\n"
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
100 ("package, %s: "
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
101 "\\usepackage[" (read-string "options, RET: ") & ?\] | -1 ?{ str "}\n")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
102 _ "\n\\begin{document}\n" _
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
103 "\n\\end{document}")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
104
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
105 (("/bin/.*[^/]\\'" . "Shell-Script mode magic number")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
106 lambda ()
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
107 (if (eq major-mode default-major-mode)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
108 (sh-mode)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
109
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
110 (ada-mode . ada-header)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
111
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
112 (("\\.el\\'" . "Emacs Lisp header")
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
113 "Short description: "
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
114 ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str "
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
115
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
116 ;; Copyright (C) " (substring (current-time-string) -4) " by "
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
117 (getenv "ORGANIZATION") | "Free Software Foundation, Inc." "
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
118
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
119 ;; Author: " (user-full-name)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
120 '(if (search-backward "&" (save-excursion (beginning-of-line 1) (point)) t)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
121 (replace-match (capitalize (user-login-name)) t t))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
122 '(end-of-line 1) " <" (user-login-name) ?@ (system-name) ">
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
123 ;; Keywords: "
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
124 '(require 'finder)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
125 ;;'(setq v1 (apply 'vector (mapcar 'car finder-known-keywords)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
126 '(setq v1 (mapcar (lambda (x) (list (symbol-name (car x))))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
127 finder-known-keywords)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
128 v2 (mapconcat (lambda (x) (format "%10.0s: %s" (car x) (cdr x)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
129 finder-known-keywords
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
130 "\n"))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
131 ((let ((minibuffer-help-form v2))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
132 (completing-read "Keyword, C-h: " v1 nil t))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
133 str ", ") & -2 "
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
134
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
135 ;; This file is part of GNU Emacs.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
136
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
137 ;; GNU Emacs is free software; you can redistribute it and/or modify
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
138 ;; it under the terms of the GNU General Public License as published by
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
139 ;; the Free Software Foundation; either version 2, or (at your option)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
140 ;; any later version.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
141
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
142 ;; GNU Emacs is distributed in the hope that it will be useful,
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
143 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
144 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
145 ;; GNU General Public License for more details.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
146
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
147 ;; You should have received a copy of the GNU General Public License
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
148 ;; along with GNU Emacs; see the file COPYING. If not, write to
14181
aacf08497202 (auto-insert-alist): Use FSF's new address.
Erik Naggum <erik@naggum.no>
parents: 14169
diff changeset
149 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
aacf08497202 (auto-insert-alist): Use FSF's new address.
Erik Naggum <erik@naggum.no>
parents: 14169
diff changeset
150 ;; Boston, MA 02111-1307, USA.
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
151
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
152 ;;; Commentary:
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
153
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
154 ;; " _ "
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
155
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
156 ;;; Code:
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
157
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
158
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
159
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
160 ;;; " (file-name-nondirectory (buffer-file-name)) " ends here"))
180
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 "A list specifying text to insert by default into a new file.
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
162 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION).
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
163 CONDITION maybe a regexp that must match the new file's name, or it may be
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
164 a symbol that must match the major mode for this element to apply.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
165 Only the first matching element is effective.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
166 Optional DESCRIPTION is a string for filling `auto-insert-prompt'.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
167 ACTION may be a skeleton to insert (see `skeleton-insert'), an absolute
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
168 file-name or one relative to `auto-insert-directory' or a function to call.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
169 ACTION may also be a vector containing several successive single actions as
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
170 described above, e.g. [\"header.insert\" date-and-author-update].")
180
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
172
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
173 ;; Establish a default value for auto-insert-directory
180
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 (defvar auto-insert-directory "~/insert/"
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 "*Directory from which auto-inserted files are taken.")
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
177
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
178 ;;;###autoload
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
179 (defun auto-insert ()
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
180 "Insert default contents into a new file if `auto-insert' is non-nil.
180
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 Matches the visited file name against the elements of `auto-insert-alist'."
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
182 (interactive)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
183 (and (not buffer-read-only)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
184 (or (eq this-command 'auto-insert)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
185 (and auto-insert
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
186 (bobp) (eobp)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
187 (let ((alist auto-insert-alist)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
188 case-fold-search cond desc action)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
189 (goto-char 1)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
190 ;; find first matching alist entry
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
191 (while alist
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
192 (if (atom (setq cond (car (car alist))))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
193 (setq desc cond)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
194 (setq desc (cdr cond)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
195 cond (car cond)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
196 (if (if (symbolp cond)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
197 (eq cond major-mode)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
198 (string-match cond buffer-file-name))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
199 (setq action (cdr (car alist))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
200 alist nil)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
201 (setq alist (cdr alist))))
180
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
203 ;; Now, if we found something, do it
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
204 (and action
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
205 (if (stringp action)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
206 (file-readable-p (concat auto-insert-directory action))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
207 t)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
208 (if auto-insert-query
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
209 (or (if (eq auto-insert-query 'function)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
210 (eq this-command 'auto-insert))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
211 (y-or-n-p (format auto-insert-prompt desc)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
212 t)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
213 (mapcar
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
214 (lambda (action)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
215 (if (stringp action)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
216 (if (file-readable-p
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
217 (setq action (concat auto-insert-directory action)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
218 (insert-file-contents action))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
219 (save-window-excursion
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
220 ;; make buffer visible before skeleton or function
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
221 ;; which might ask the user for something
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
222 (switch-to-buffer (current-buffer))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
223 (if (and (consp action)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
224 (not (eq (car action) 'lambda)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
225 (skeleton-insert action)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
226 (funcall action)))))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
227 (if (vectorp action)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
228 action
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
229 (vector action))))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
230 (and (buffer-modified-p)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
231 (not (eq this-command 'auto-insert))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
232 (set-buffer-modified-p (eq auto-insert t))))))
180
289ee39b1637 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
233
12502
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
234
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
235 ;;;###autoload
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
236 (defun define-auto-insert (key action &optional after)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
237 "Associate CONDITION with (additional) ACTION in `auto-insert-alist'.
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
238 Optional AFTER means to insert action after all existing actions for CONDITION,
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
239 or if CONDITION had no actions, after all other CONDITIONs."
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
240 (let ((elt (assoc key auto-insert-alist)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
241 (if elt
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
242 (setcdr elt
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
243 (if (vectorp (cdr elt))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
244 (vconcat (if after (cdr elt))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
245 (if (vectorp action) action (vector action))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
246 (if after () (cdr elt)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
247 (if after
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
248 (vector (cdr elt) action)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
249 (vector action (cdr elt)))))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
250 (if after
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
251 (nconc auto-insert-alist (list (cons key action)))
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
252 (setq auto-insert-alist (cons (cons key action)
8bb3424bf745 extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents: 8764
diff changeset
253 auto-insert-alist))))))
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 180
diff changeset
254
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 180
diff changeset
255 ;;; autoinsert.el ends here