1 |
;;; autoinsert.el --- automatic mode-dependent insertion of text into new files |
;;; autoinsert.el --- automatic mode-dependent insertion of text into new files |
2 |
|
|
3 |
;; Copyright (C) 1985, 86, 87, 94, 95, 98, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1985, 86, 87, 94, 95, 98, 2000, 03 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Charlie Martin <crm@cs.duke.edu> |
;; Author: Charlie Martin <crm@cs.duke.edu> |
6 |
;; Adapted-By: Daniel Pfeiffer <occitan@esperanto.org> |
;; Adapted-By: Daniel Pfeiffer <occitan@esperanto.org> |
113 |
(("[Mm]akefile\\'" . "Makefile") . "makefile.inc") |
(("[Mm]akefile\\'" . "Makefile") . "makefile.inc") |
114 |
|
|
115 |
(html-mode . (lambda () (sgml-tag "html"))) |
(html-mode . (lambda () (sgml-tag "html"))) |
116 |
|
|
117 |
(plain-tex-mode . "tex-insert.tex") |
(plain-tex-mode . "tex-insert.tex") |
118 |
(bibtex-mode . "tex-insert.tex") |
(bibtex-mode . "tex-insert.tex") |
119 |
(latex-mode |
(latex-mode |
130 |
lambda () |
lambda () |
131 |
(if (eq major-mode default-major-mode) |
(if (eq major-mode default-major-mode) |
132 |
(sh-mode))) |
(sh-mode))) |
133 |
|
|
134 |
(ada-mode . ada-header) |
(ada-mode . ada-header) |
135 |
|
|
136 |
|
(("\\.[1-9]\\'" . "Man page skeleton") |
137 |
|
"Short description: " |
138 |
|
".\\\" Copyright (C), " (substring (current-time-string) -4) " " |
139 |
|
(getenv "ORGANIZATION") | "Free Software Foundation, Inc." |
140 |
|
" |
141 |
|
.\\\" You may distribute this file under the terms of the GNU Free |
142 |
|
.\\\" Documentation Licence. |
143 |
|
.TH " (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) |
144 |
|
" " (file-name-extension (buffer-file-name)) |
145 |
|
" " (format-time-string "%Y-%m-%d ") |
146 |
|
"\n.SH NAME\n" |
147 |
|
(file-name-sans-extension (file-name-nondirectory (buffer-file-name))) |
148 |
|
" \\- " str |
149 |
|
"\n.SH SYNOPSIS |
150 |
|
.B " (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) |
151 |
|
"\n" |
152 |
|
_ |
153 |
|
" |
154 |
|
.SH DESCRIPTION |
155 |
|
.SH OPTIONS |
156 |
|
.SH FILES |
157 |
|
.SH \"SEE ALSO\" |
158 |
|
.SH BUGS |
159 |
|
.SH AUTHOR |
160 |
|
" (user-full-name) |
161 |
|
'(if (search-backward "&" (line-beginning-position) t) |
162 |
|
(replace-match (capitalize (user-login-name)) t t)) |
163 |
|
'(end-of-line 1) " <" (progn user-mail-address) ">\n") |
164 |
|
|
165 |
(("\\.el\\'" . "Emacs Lisp header") |
(("\\.el\\'" . "Emacs Lisp header") |
166 |
"Short description: " |
"Short description: " |
167 |
";;; " (file-name-nondirectory (buffer-file-name)) " --- " str " |
";;; " (file-name-nondirectory (buffer-file-name)) " --- " str " |