(defgroup auto-insert nil
"Automatic mode-dependent insertion of text into new files."
:prefix "auto-insert-"
:group 'files
:group 'convenience)
(defcustom auto-insert 'not-modified
"*Controls automatic insertion into newly found empty files.
Possible values:
nil do nothing
t insert if possible
other insert if possible, but mark as unmodified.
Insertion is possible when something appropriate is found in
`auto-insert-alist'. When the insertion is marked as unmodified, you can
save it with \\[write-file] RET.
This variable is used when the function `auto-insert' is called, e.g.
when you do (add-hook 'find-file-hooks 'auto-insert).
With \\[auto-insert], this is always treated as if it were t."
:type '(choice (const :tag "Insert if possible" t)
(const :tag "Do nothing" nil)
(other :tag "insert if possible, mark as unmodified."
not-modified))
:group 'auto-insert)
(defcustom auto-insert-query 'function
"*Non-nil means ask user before auto-inserting.
When this is `function', only ask when called non-interactively."
:type '(choice (const :tag "Don't ask" nil)
(const :tag "Ask if called non-interactively" function)
(other :tag "Ask" t))
:group 'auto-insert)
(defcustom auto-insert-prompt "Perform %s auto-insertion? "
"*Prompt to use when querying whether to auto-insert.
If this contains a %s, that will be replaced by the matching rule."
:type 'string
:group 'auto-insert)
(defcustom auto-insert-alist
'((("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++ header")
(upcase (concat (file-name-nondirectory
(substring buffer-file-name 0 (match-beginning 0)))
"_"
(substring buffer-file-name (1+ (match-beginning 0)))))
"#ifndef " str \n
"#define " str "\n\n"
_ "\n\n#endif")
(("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program")
nil
"#include \""
(and (fboundp 'c-companion-file)
(file-name-nondirectory (c-companion-file 'name))) & ?\"
| -10)
("[Mm]akefile\\'" . "makefile.inc")
(html-mode . (lambda () (sgml-tag "html")))
(plain-tex-mode . "tex-insert.tex")
(bibtex-mode . "tex-insert.tex")
(latex-mode
;; should try to offer completing read for these
"options, RET: "
"\\documentclass[" str & ?\] | -1
?{ (read-string "class: ") "}\n"
("package, %s: "
"\\usepackage[" (read-string "options, RET: ") & ?\] | -1 ?{ str "}\n")
_ "\n\\begin{document}\n" _
"\n\\end{document}")
(("/bin/.*[^/]\\'" . "Shell-Script mode magic number")
lambda ()
(if (eq major-mode default-major-mode)
(sh-mode)))
(ada-mode . ada-header)
(("\\.el\\'" . "Emacs Lisp header")
"Short description: "
"
(getenv "ORGANIZATION") | "Free Software Foundation, Inc." "
;; Author: " (user-full-name)
'(if (search-backward "&" (line-beginning-position) t)
(replace-match (capitalize (user-login-name)) t t))
'(end-of-line 1) " <" (progn user-mail-address) ">
;; Keywords: "
'(require 'finder)
'(setq v1 (mapcar (lambda (x) (list (symbol-name (car x))))
finder-known-keywords)
v2 (mapconcat (lambda (x) (format "%10.0s: %s" (car x) (cdr x)))
finder-known-keywords
"\n"))
((let ((minibuffer-help-form v2))
(completing-read "Keyword, C-h: " v1 nil t))
str ", ") & -2 "
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; " _ "
;;; Code:
\(provide '"
(file-name-sans-extension (file-name-nondirectory (buffer-file-name)))
")
;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n"))
"A list specifying text to insert by default into a new file.
Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION).
CONDITION maybe a regexp that must match the new file's name, or it may be
a symbol that must match the major mode for this element to apply.
Only the first matching element is effective.
Optional DESCRIPTION is a string for filling `auto-insert-prompt'.
ACTION may be a skeleton to insert (see `skeleton-insert'), an absolute
file-name or one relative to `auto-insert-directory' or a function to call.
ACTION may also be a vector containing several successive single actions as
described above, e.g. [\"header.insert\" date-and-author-update]."
:type 'sexp
:group 'auto-insert)
(defcustom auto-insert-directory "~/insert/"
"*Directory from which auto-inserted files are taken."
:type 'directory
:group 'auto-insert)
(defun auto-insert ()
"Insert default contents into new files if variable `auto-insert' is non-nil.
Matches the visited file name against the elements of `auto-insert-alist'."
(interactive)
(and (not buffer-read-only)
(or (eq this-command 'auto-insert)
(and auto-insert
(bobp) (eobp)))
(let ((alist auto-insert-alist)
case-fold-search cond desc action)
(goto-char 1)
(while alist
(if (atom (setq cond (car (car alist))))
(setq desc cond)
(setq desc (cdr cond)
cond (car cond)))
(if (if (symbolp cond)
(eq cond major-mode)
(and buffer-file-name
(string-match cond buffer-file-name)))
(setq action (cdr (car alist))
alist nil)
(setq alist (cdr alist))))
(and action
(if (stringp action)
(file-readable-p (concat auto-insert-directory action))
t)
(if auto-insert-query
(or (if (eq auto-insert-query 'function)
(eq this-command 'auto-insert))
(y-or-n-p (format auto-insert-prompt desc)))
t)
(mapcar
(lambda (action)
(if (stringp action)
(if (file-readable-p
(setq action (concat auto-insert-directory action)))
(insert-file-contents action))
(save-window-excursion
(switch-to-buffer (current-buffer))
(if (and (consp action)
(not (eq (car action) 'lambda)))
(skeleton-insert action)
(funcall action)))))
(if (vectorp action)
action
(vector action))))
(and (buffer-modified-p)
(not (eq this-command 'auto-insert))
(set-buffer-modified-p (eq auto-insert t)))))
nil)
(defun define-auto-insert (condition action &optional after)
"Associate CONDITION with (additional) ACTION in `auto-insert-alist'.
Optional AFTER means to insert action after all existing actions for CONDITION,
or if CONDITION had no actions, after all other CONDITIONs."
(let ((elt (assoc condition auto-insert-alist)))
(if elt
(setcdr elt
(if (vectorp (cdr elt))
(vconcat (if after (cdr elt))
(if (vectorp action) action (vector action))
(if after () (cdr elt)))
(if after
(vector (cdr elt) action)
(vector action (cdr elt)))))
(if after
(nconc auto-insert-alist (list (cons condition action)))
(setq auto-insert-alist (cons (cons condition action)
auto-insert-alist))))))
(define-minor-mode auto-insert-mode
"Toggle Auto-insert mode.
With prefix ARG, turn Auto-insert mode on if and only if ARG is positive.
Returns the new status of Auto-insert mode (non-nil means on).
When Auto-insert mode is enabled, when new files are created you can
insert a template for the file depending on the mode of the buffer."
:global t :group 'auto-insert
(if auto-insert-mode
(add-hook 'find-file-hooks 'auto-insert)
(remove-hook 'find-file-hooks 'auto-insert)))
(provide 'autoinsert)