Mercurial > emacs
annotate lisp/autoinsert.el @ 108224:8251ba69ff20
* mm-util.el (mm-decompress-buffer): Use `delete-file'.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 04 May 2010 00:38:50 +0200 |
parents | 1d1d5d9bd884 |
children | 25749a68f5ae 376148b31b5e |
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 | 2 |
74439 | 3 ;; Copyright (C) 1985, 1986, 1987, 1994, 1995, 1998, 2000, 2001, 2002, |
106815 | 4 ;; 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
845 | 5 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
6 ;; Author: Charlie Martin <crm@cs.duke.edu> |
23869 | 7 ;; Adapted-By: Daniel Pfeiffer <occitan@esperanto.org> |
22250
a77d473867b8
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21287
diff
changeset
|
8 ;; Keywords: convenience |
17976 | 9 ;; Maintainer: FSF |
180 | 10 |
11 ;; This file is part of GNU Emacs. | |
12 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92292
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
180 | 14 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92292
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92292
diff
changeset
|
16 ;; (at your option) any later version. |
180 | 17 |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92292
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
180 | 25 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
26 ;;; Commentary: |
180 | 27 |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
28 ;; 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
|
29 ;; 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
|
30 ;; 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
|
31 ;; 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
|
32 ;; auto-mode-alist. |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
33 ;; |
26661 | 34 ;; To use: |
60876
e6350e6a85be
find-file-hooks -> find-file-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58242
diff
changeset
|
35 ;; (add-hook 'find-file-hook 'auto-insert) |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
36 ;; 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
|
37 ;; |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
38 ;; You can also customize the variable `auto-insert-mode' to load the |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
39 ;; package. Alternatively, add the following to your .emacs file: |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
40 ;; (auto-insert-mode 1) |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
41 ;; |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
42 ;; Author: Charlie Martin |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
43 ;; Department of Computer Science and |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
44 ;; National Biomedical Simulation Resource |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
45 ;; Box 3709 |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
46 ;; Duke University Medical Center |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
47 ;; Durham, NC 27710 |
26661 | 48 ;; (crm@cs.duke.edu,mcnc!duke!crm) |
180 | 49 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
50 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
51 |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
52 (defgroup auto-insert nil |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
53 "Automatic mode-dependent insertion of text into new files." |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
54 :prefix "auto-insert-" |
22250
a77d473867b8
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21287
diff
changeset
|
55 :group 'files |
95381
df27f026bbe2
(auto-insert): Add :link.
Juanma Barranquero <lekktu@gmail.com>
parents:
94678
diff
changeset
|
56 :group 'convenience |
df27f026bbe2
(auto-insert): Add :link.
Juanma Barranquero <lekktu@gmail.com>
parents:
94678
diff
changeset
|
57 :link '(custom-manual "(autotype) Autoinserting")) |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
58 |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
59 |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
60 (defcustom auto-insert 'not-modified |
100171 | 61 "Controls automatic insertion into newly found empty files. |
26661 | 62 Possible values: |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
63 nil do nothing |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
64 t insert if possible |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
65 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
|
66 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
|
67 `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
|
68 save it with \\[write-file] RET. |
31878 | 69 This variable is used when the function `auto-insert' is called, e.g. |
60876
e6350e6a85be
find-file-hooks -> find-file-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58242
diff
changeset
|
70 when you do (add-hook 'find-file-hook 'auto-insert). |
26661 | 71 With \\[auto-insert], this is always treated as if it were t." |
21287
f61d91aef100
(auto-insert, auto-insert-query): :tag choices.
Dave Love <fx@gnu.org>
parents:
20809
diff
changeset
|
72 :type '(choice (const :tag "Insert if possible" t) |
f61d91aef100
(auto-insert, auto-insert-query): :tag choices.
Dave Love <fx@gnu.org>
parents:
20809
diff
changeset
|
73 (const :tag "Do nothing" nil) |
26661 | 74 (other :tag "insert if possible, mark as unmodified." |
21287
f61d91aef100
(auto-insert, auto-insert-query): :tag choices.
Dave Love <fx@gnu.org>
parents:
20809
diff
changeset
|
75 not-modified)) |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
76 :group 'auto-insert) |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
77 |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
78 (defcustom auto-insert-query 'function |
100171 | 79 "Non-nil means ask user before auto-inserting. |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
80 When this is `function', only ask when called non-interactively." |
22567
b20af24c6cdd
(auto-insert, auto-insert-query): Use `other'
Andreas Schwab <schwab@suse.de>
parents:
22250
diff
changeset
|
81 :type '(choice (const :tag "Don't ask" nil) |
b20af24c6cdd
(auto-insert, auto-insert-query): Use `other'
Andreas Schwab <schwab@suse.de>
parents:
22250
diff
changeset
|
82 (const :tag "Ask if called non-interactively" function) |
b20af24c6cdd
(auto-insert, auto-insert-query): Use `other'
Andreas Schwab <schwab@suse.de>
parents:
22250
diff
changeset
|
83 (other :tag "Ask" t)) |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
84 :group 'auto-insert) |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
85 |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
86 (defcustom auto-insert-prompt "Perform %s auto-insertion? " |
100171 | 87 "Prompt to use when querying whether to auto-insert. |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
88 If this contains a %s, that will be replaced by the matching rule." |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
89 :type 'string |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
90 :group 'auto-insert) |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
91 |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
92 |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
93 (defcustom auto-insert-alist |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
94 '((("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++ header") |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
95 (upcase (concat (file-name-nondirectory |
99723
a626eb454478
(auto-insert-alist): Don't use match data.
Lute Kamstra <lute@gnu.org>
parents:
99712
diff
changeset
|
96 (file-name-sans-extension buffer-file-name)) |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
97 "_" |
99723
a626eb454478
(auto-insert-alist): Don't use match data.
Lute Kamstra <lute@gnu.org>
parents:
99712
diff
changeset
|
98 (file-name-extension buffer-file-name))) |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
99 "#ifndef " str \n |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
100 "#define " str "\n\n" |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
101 _ "\n\n#endif") |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
102 |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
103 (("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program") |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
104 nil |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
105 "#include \"" |
42161
18516f8e5cff
(auto-insert-alist): Redo finding C and C++ headers.
Richard M. Stallman <rms@gnu.org>
parents:
34380
diff
changeset
|
106 (let ((stem (file-name-sans-extension buffer-file-name))) |
18516f8e5cff
(auto-insert-alist): Redo finding C and C++ headers.
Richard M. Stallman <rms@gnu.org>
parents:
34380
diff
changeset
|
107 (cond ((file-exists-p (concat stem ".h")) |
18516f8e5cff
(auto-insert-alist): Redo finding C and C++ headers.
Richard M. Stallman <rms@gnu.org>
parents:
34380
diff
changeset
|
108 (file-name-nondirectory (concat stem ".h"))) |
18516f8e5cff
(auto-insert-alist): Redo finding C and C++ headers.
Richard M. Stallman <rms@gnu.org>
parents:
34380
diff
changeset
|
109 ((file-exists-p (concat stem ".hh")) |
18516f8e5cff
(auto-insert-alist): Redo finding C and C++ headers.
Richard M. Stallman <rms@gnu.org>
parents:
34380
diff
changeset
|
110 (file-name-nondirectory (concat stem ".hh"))))) |
18516f8e5cff
(auto-insert-alist): Redo finding C and C++ headers.
Richard M. Stallman <rms@gnu.org>
parents:
34380
diff
changeset
|
111 & ?\" | -10) |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
112 |
42161
18516f8e5cff
(auto-insert-alist): Redo finding C and C++ headers.
Richard M. Stallman <rms@gnu.org>
parents:
34380
diff
changeset
|
113 (("[Mm]akefile\\'" . "Makefile") . "makefile.inc") |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
114 |
14153
3e949d37e46f
(auto-insert-alist): For html-mode, use `sgml-tag'.
Richard M. Stallman <rms@gnu.org>
parents:
12502
diff
changeset
|
115 (html-mode . (lambda () (sgml-tag "html"))) |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49024
diff
changeset
|
116 |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
117 (plain-tex-mode . "tex-insert.tex") |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
118 (bibtex-mode . "tex-insert.tex") |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
119 (latex-mode |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
120 ;; 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
|
121 "options, RET: " |
33252
ffb346e61cf2
(auto-insert-alist) <latex-mode>: Use
Dave Love <fx@gnu.org>
parents:
33184
diff
changeset
|
122 "\\documentclass[" str & ?\] | -1 |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
123 ?{ (read-string "class: ") "}\n" |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
124 ("package, %s: " |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
125 "\\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
|
126 _ "\n\\begin{document}\n" _ |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
127 "\n\\end{document}") |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
128 |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
129 (("/bin/.*[^/]\\'" . "Shell-Script mode magic number") |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
130 lambda () |
104682
73bff1db57b6
* gnus/nnheader.el (nnheader-find-file-noselect):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100908
diff
changeset
|
131 (if (eq major-mode (default-value 'major-mode)) |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
132 (sh-mode))) |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49024
diff
changeset
|
133 |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
134 (ada-mode . ada-header) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
135 |
49024
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
136 (("\\.[1-9]\\'" . "Man page skeleton") |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
137 "Short description: " |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
138 ".\\\" Copyright (C), " (substring (current-time-string) -4) " " |
55040
4728f7603f2a
(auto-insert-alist): Insert the user's name in
Richard M. Stallman <rms@gnu.org>
parents:
52401
diff
changeset
|
139 (getenv "ORGANIZATION") | (progn user-full-name) |
49024
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
140 " |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
141 .\\\" You may distribute this file under the terms of the GNU Free |
63623
39385d905a25
(auto-insert-alist): Fix spellings.
Juanma Barranquero <lekktu@gmail.com>
parents:
60876
diff
changeset
|
142 .\\\" Documentation License. |
49024
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
143 .TH " (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
144 " " (file-name-extension (buffer-file-name)) |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
145 " " (format-time-string "%Y-%m-%d ") |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
146 "\n.SH NAME\n" |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
147 (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
148 " \\- " str |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
149 "\n.SH SYNOPSIS |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
150 .B " (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
151 "\n" |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
152 _ |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
153 " |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
154 .SH DESCRIPTION |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
155 .SH OPTIONS |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
156 .SH FILES |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
157 .SH \"SEE ALSO\" |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
158 .SH BUGS |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
159 .SH AUTHOR |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
160 " (user-full-name) |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
161 '(if (search-backward "&" (line-beginning-position) t) |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
162 (replace-match (capitalize (user-login-name)) t t)) |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
163 '(end-of-line 1) " <" (progn user-mail-address) ">\n") |
417bead90660
(auto-insert-alist): Add man page skeleton.
Dave Love <fx@gnu.org>
parents:
45025
diff
changeset
|
164 |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
165 (("\\.el\\'" . "Emacs Lisp header") |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
166 "Short description: " |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
167 ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str " |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
168 |
34380
45cb6948fefa
(auto-insert-alist): Add missing final \n.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33794
diff
changeset
|
169 ;; Copyright (C) " (substring (current-time-string) -4) " " |
58242
239eb406bf92
(auto-insert-alist): Insert the user's name in copyright notice,
John Paul Wallington <jpw@pobox.com>
parents:
55040
diff
changeset
|
170 (getenv "ORGANIZATION") | (progn user-full-name) " |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
171 |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
172 ;; Author: " (user-full-name) |
31878 | 173 '(if (search-backward "&" (line-beginning-position) t) |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
174 (replace-match (capitalize (user-login-name)) t t)) |
23782
ffae9b995e65
(auto-insert-alist): Use user-mail-address.
Richard M. Stallman <rms@gnu.org>
parents:
23708
diff
changeset
|
175 '(end-of-line 1) " <" (progn user-mail-address) "> |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
176 ;; Keywords: " |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
177 '(require 'finder) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
178 ;;'(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
|
179 '(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
|
180 finder-known-keywords) |
79586
83cdf5665b35
(auto-insert-alist): Remove nonsensical precision
Martin Rudalics <rudalics@gmx.at>
parents:
78236
diff
changeset
|
181 v2 (mapconcat (lambda (x) (format "%12s: %s" (car x) (cdr x))) |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
182 finder-known-keywords |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
183 "\n")) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
184 ((let ((minibuffer-help-form v2)) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
185 (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
|
186 str ", ") & -2 " |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
187 |
92253
fa0d39c9e1ee
(auto-insert-alist): Change permission text to match FSF's GPLv3 form.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
188 \;; This program is free software; you can redistribute it and/or modify |
81053
469db45b9f02
(auto-insert-alist): Quote elisp sample code so as not
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
189 \;; it under the terms of the GNU General Public License as published by |
92253
fa0d39c9e1ee
(auto-insert-alist): Change permission text to match FSF's GPLv3 form.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
190 \;; the Free Software Foundation, either version 3 of the License, or |
fa0d39c9e1ee
(auto-insert-alist): Change permission text to match FSF's GPLv3 form.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
191 \;; (at your option) any later version. |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
192 |
92253
fa0d39c9e1ee
(auto-insert-alist): Change permission text to match FSF's GPLv3 form.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
193 \;; This program is distributed in the hope that it will be useful, |
81053
469db45b9f02
(auto-insert-alist): Quote elisp sample code so as not
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
194 \;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
469db45b9f02
(auto-insert-alist): Quote elisp sample code so as not
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
195 \;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
469db45b9f02
(auto-insert-alist): Quote elisp sample code so as not
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
196 \;; GNU General Public License for more details. |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
197 |
81053
469db45b9f02
(auto-insert-alist): Quote elisp sample code so as not
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
198 \;; You should have received a copy of the GNU General Public License |
92253
fa0d39c9e1ee
(auto-insert-alist): Change permission text to match FSF's GPLv3 form.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
199 \;; along with this program. If not, see <http://www.gnu.org/licenses/>. |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
200 |
81053
469db45b9f02
(auto-insert-alist): Quote elisp sample code so as not
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
201 \;;; Commentary: |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
202 |
81053
469db45b9f02
(auto-insert-alist): Quote elisp sample code so as not
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
203 \;; " _ " |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
204 |
81053
469db45b9f02
(auto-insert-alist): Quote elisp sample code so as not
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
205 \;;; Code: |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
206 |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
207 |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
208 |
33794
f35b09043a64
(auto-insert-alist): Add `provide' to elisp skeleton.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33252
diff
changeset
|
209 \(provide '" |
f35b09043a64
(auto-insert-alist): Add `provide' to elisp skeleton.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33252
diff
changeset
|
210 (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) |
f35b09043a64
(auto-insert-alist): Add `provide' to elisp skeleton.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33252
diff
changeset
|
211 ") |
85054
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
212 \;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n") |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
213 (("\\.texi\\(nfo\\)?\\'" . "Texinfo file skeleton") |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
214 "Title: " |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
215 "\\input texinfo @c -*-texinfo-*- |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
216 @c %**start of header |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
217 @setfilename " |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
218 (file-name-sans-extension |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
219 (file-name-nondirectory (buffer-file-name))) ".info\n" |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
220 "@settitle " str " |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
221 @c %**end of header |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
222 @copying\n" |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
223 (setq short-description (read-string "Short description: ")) |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
224 ".\n\n" |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
225 "Copyright @copyright{} " (substring (current-time-string) -4) " " |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
226 (getenv "ORGANIZATION") | (progn user-full-name) " |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
227 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
228 @quotation |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
229 Permission is granted to copy, distribute and/or modify this document |
99712
5436066cf627
(auto-insert-alist): Update template to FDL 1.3+.
Glenn Morris <rgm@gnu.org>
parents:
95381
diff
changeset
|
230 under the terms of the GNU Free Documentation License, Version 1.3 |
92292
c7a02490dc02
(auto-insert-alist): Update to FDL 1.2.
Glenn Morris <rgm@gnu.org>
parents:
92253
diff
changeset
|
231 or any later version published by the Free Software Foundation; |
99712
5436066cf627
(auto-insert-alist): Update template to FDL 1.3+.
Glenn Morris <rgm@gnu.org>
parents:
95381
diff
changeset
|
232 with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. |
5436066cf627
(auto-insert-alist): Update template to FDL 1.3+.
Glenn Morris <rgm@gnu.org>
parents:
95381
diff
changeset
|
233 A copy of the license is included in the section entitled ``GNU |
92292
c7a02490dc02
(auto-insert-alist): Update to FDL 1.2.
Glenn Morris <rgm@gnu.org>
parents:
92253
diff
changeset
|
234 Free Documentation License''. |
85054
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
235 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
236 A copy of the license is also available from the Free Software |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
237 Foundation Web site at @url{http://www.gnu.org/licenses/fdl.html}. |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
238 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
239 @end quotation |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
240 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
241 The document was typeset with |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
242 @uref{http://www.texinfo.org/, GNU Texinfo}. |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
243 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
244 @end copying |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
245 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
246 @titlepage |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
247 @title " str " |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
248 @subtitle " short-description " |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
249 @author " (getenv "ORGANIZATION") | (progn user-full-name) |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
250 " <" (progn user-mail-address) "> |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
251 @page |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
252 @vskip 0pt plus 1filll |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
253 @insertcopying |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
254 @end titlepage |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
255 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
256 @c Output the table of the contents at the beginning. |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
257 @contents |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
258 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
259 @ifnottex |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
260 @node Top |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
261 @top " str " |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
262 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
263 @insertcopying |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
264 @end ifnottex |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
265 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
266 @c Generate the nodes for this menu with `C-c C-u C-m'. |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
267 @menu |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
268 @end menu |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
269 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
270 @c Update all node entries with `C-c C-u C-n'. |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
271 @c Insert new nodes with `C-c C-c n'. |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
272 @node Chapter One |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
273 @chapter Chapter One |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
274 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
275 " _ " |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
276 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
277 @node Copying This Manual |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
278 @appendix Copying This Manual |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
279 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
280 @menu |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
281 * GNU Free Documentation License:: License for copying this manual. |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
282 @end menu |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
283 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
284 @c Get fdl.texi from http://www.gnu.org/licenses/fdl.html |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
285 @include fdl.texi |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
286 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
287 @node Index |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
288 @unnumbered Index |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
289 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
290 @printindex cp |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
291 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
292 @bye |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
293 |
76282b9aa263
Aaron Hawley <aaronh at garden.org>
Glenn Morris <rgm@gnu.org>
parents:
84857
diff
changeset
|
294 @c " (file-name-nondirectory (buffer-file-name)) " ends here\n")) |
180 | 295 "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
|
296 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION). |
73274
46e9c5d41caa
(auto-insert-alist): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
297 CONDITION may be a regexp that must match the new file's name, or it may be |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
298 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
|
299 Only the first matching element is effective. |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
300 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
|
301 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
|
302 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
|
303 ACTION may also be a vector containing several successive single actions as |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
304 described above, e.g. [\"header.insert\" date-and-author-update]." |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
305 :type 'sexp |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
306 :group 'auto-insert) |
180 | 307 |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
308 |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
309 ;; Establish a default value for auto-insert-directory |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
310 (defcustom auto-insert-directory "~/insert/" |
100171 | 311 "Directory from which auto-inserted files are taken. |
45025
b38fc6fb7a1a
(auto-insert-directory): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
44984
diff
changeset
|
312 The value must be an absolute directory name; |
b38fc6fb7a1a
(auto-insert-directory): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
44984
diff
changeset
|
313 thus, on a GNU or Unix system, it must end in a slash." |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
314 :type 'directory |
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
315 :group 'auto-insert) |
180 | 316 |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
317 |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
318 ;;;###autoload |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
319 (defun auto-insert () |
31878 | 320 "Insert default contents into new files if variable `auto-insert' is non-nil. |
180 | 321 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
|
322 (interactive) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
323 (and (not buffer-read-only) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
324 (or (eq this-command 'auto-insert) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
325 (and auto-insert |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
326 (bobp) (eobp))) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
327 (let ((alist auto-insert-alist) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
328 case-fold-search cond desc action) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
329 (goto-char 1) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
330 ;; find first matching alist entry |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
331 (while alist |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
332 (if (atom (setq cond (car (car alist)))) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
333 (setq desc cond) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
334 (setq desc (cdr cond) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
335 cond (car cond))) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
336 (if (if (symbolp cond) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
337 (eq cond major-mode) |
31878 | 338 (and buffer-file-name |
339 (string-match cond buffer-file-name))) | |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
340 (setq action (cdr (car alist)) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
341 alist nil) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
342 (setq alist (cdr alist)))) |
180 | 343 |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
344 ;; Now, if we found something, do it |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
345 (and action |
100278
4d303931bf58
(auto-insert): Use expand-file-name instead of concat.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100171
diff
changeset
|
346 (or (not (stringp action)) |
4d303931bf58
(auto-insert): Use expand-file-name instead of concat.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100171
diff
changeset
|
347 (file-readable-p (expand-file-name |
4d303931bf58
(auto-insert): Use expand-file-name instead of concat.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100171
diff
changeset
|
348 action auto-insert-directory))) |
4d303931bf58
(auto-insert): Use expand-file-name instead of concat.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100171
diff
changeset
|
349 (or (not auto-insert-query) |
4d303931bf58
(auto-insert): Use expand-file-name instead of concat.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100171
diff
changeset
|
350 (if (eq auto-insert-query 'function) |
4d303931bf58
(auto-insert): Use expand-file-name instead of concat.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100171
diff
changeset
|
351 (eq this-command 'auto-insert)) |
4d303931bf58
(auto-insert): Use expand-file-name instead of concat.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100171
diff
changeset
|
352 (y-or-n-p (format auto-insert-prompt desc))) |
84857
03c05458c97e
(auto-insert): Use `mapc' rather than `mapcar'.
Juanma Barranquero <lekktu@gmail.com>
parents:
82140
diff
changeset
|
353 (mapc |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
354 (lambda (action) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
355 (if (stringp action) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
356 (if (file-readable-p |
100278
4d303931bf58
(auto-insert): Use expand-file-name instead of concat.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100171
diff
changeset
|
357 (setq action (expand-file-name |
4d303931bf58
(auto-insert): Use expand-file-name instead of concat.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100171
diff
changeset
|
358 action auto-insert-directory))) |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
359 (insert-file-contents action)) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
360 (save-window-excursion |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
361 ;; make buffer visible before skeleton or function |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
362 ;; which might ask the user for something |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
363 (switch-to-buffer (current-buffer)) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
364 (if (and (consp action) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
365 (not (eq (car action) 'lambda))) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
366 (skeleton-insert action) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
367 (funcall action))))) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
368 (if (vectorp action) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
369 action |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
370 (vector action)))) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
371 (and (buffer-modified-p) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
372 (not (eq this-command 'auto-insert)) |
26661 | 373 (set-buffer-modified-p (eq auto-insert t))))) |
374 ;; Return nil so that it could be used in | |
375 ;; `find-file-not-found-hooks', though that's probably inadvisable. | |
376 nil) | |
180 | 377 |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
378 |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
379 ;;;###autoload |
21287
f61d91aef100
(auto-insert, auto-insert-query): :tag choices.
Dave Love <fx@gnu.org>
parents:
20809
diff
changeset
|
380 (defun define-auto-insert (condition action &optional after) |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
381 "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
|
382 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
|
383 or if CONDITION had no actions, after all other CONDITIONs." |
21287
f61d91aef100
(auto-insert, auto-insert-query): :tag choices.
Dave Love <fx@gnu.org>
parents:
20809
diff
changeset
|
384 (let ((elt (assoc condition auto-insert-alist))) |
12502
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
385 (if elt |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
386 (setcdr elt |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
387 (if (vectorp (cdr elt)) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
388 (vconcat (if after (cdr elt)) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
389 (if (vectorp action) action (vector action)) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
390 (if after () (cdr elt))) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
391 (if after |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
392 (vector (cdr elt) action) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
393 (vector action (cdr elt))))) |
8bb3424bf745
extended to use skeletons or call functions
Karl Heuer <kwzh@gnu.org>
parents:
8764
diff
changeset
|
394 (if after |
21287
f61d91aef100
(auto-insert, auto-insert-query): :tag choices.
Dave Love <fx@gnu.org>
parents:
20809
diff
changeset
|
395 (nconc auto-insert-alist (list (cons condition action))) |
100278
4d303931bf58
(auto-insert): Use expand-file-name instead of concat.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100171
diff
changeset
|
396 (push (cons condition action) auto-insert-alist))))) |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
180
diff
changeset
|
397 |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
398 ;;;###autoload |
32025
e67c88d8e5c4
(auto-insert-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31878
diff
changeset
|
399 (define-minor-mode auto-insert-mode |
26661 | 400 "Toggle Auto-insert mode. |
401 With prefix ARG, turn Auto-insert mode on if and only if ARG is positive. | |
402 Returns the new status of Auto-insert mode (non-nil means on). | |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
403 |
26661 | 404 When Auto-insert mode is enabled, when new files are created you can |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
405 insert a template for the file depending on the mode of the buffer." |
33184
8e6b63f3317d
(auto-insert-mode): Drop unneeded positional args.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32025
diff
changeset
|
406 :global t :group 'auto-insert |
32025
e67c88d8e5c4
(auto-insert-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31878
diff
changeset
|
407 (if auto-insert-mode |
60876
e6350e6a85be
find-file-hooks -> find-file-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58242
diff
changeset
|
408 (add-hook 'find-file-hook 'auto-insert) |
e6350e6a85be
find-file-hooks -> find-file-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58242
diff
changeset
|
409 (remove-hook 'find-file-hook 'auto-insert))) |
20809
c582e15d8cfc
(auto-insert-mode): New function.
Stephen Eglen <stephen@gnu.org>
parents:
18383
diff
changeset
|
410 |
18383 | 411 (provide 'autoinsert) |
412 | |
60876
e6350e6a85be
find-file-hooks -> find-file-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58242
diff
changeset
|
413 ;; arch-tag: 5b6630ac-c735-43cf-b097-b78c622af909 |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
180
diff
changeset
|
414 ;;; autoinsert.el ends here |