home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / packages / autoinsert.el < prev    next >
Encoding:
Text File  |  1995-03-25  |  3.6 KB  |  101 lines
  1. ;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
  2.  
  3. ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
  4.  
  5. ;; Author: Charlie Martin <crm@cs.duke.edu>
  6. ;; Created: 01 Jul 1988
  7.  
  8. ;; This file is part of XEmacs.
  9.  
  10. ;; XEmacs is free software; you can redistribute it and/or modify it
  11. ;; under the terms of the GNU General Public License as published by
  12. ;; the Free Software Foundation; either version 2, or (at your option)
  13. ;; any later version.
  14.  
  15. ;; XEmacs is distributed in the hope that it will be useful, but
  16. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18. ;; General Public License for more details.
  19.  
  20. ;; You should have received a copy of the GNU General Public License
  21. ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  22. ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  23.  
  24. ;;; Synched up with: FSF 19.28.
  25.  
  26. ;;; Commentary:
  27.  
  28. ;;;  Abstract:
  29. ;;;
  30. ;;;  The following defines an association list for files to be
  31. ;;;  automatically inserted when a new file is created, and a function
  32. ;;;  which automatically inserts these files; the idea is to insert
  33. ;;;  default files much as the mode is automatically set using
  34. ;;;  auto-mode-alist.
  35. ;;;
  36. ;;;  The auto-insert-alist consists of dotted pairs of
  37. ;;;  ( REGEXP . FILENAME ) where REGEXP is a regular expression, and
  38. ;;;  FILENAME is the file name of a file which is to be inserted into
  39. ;;;  all new files matching the regular expression with which it is
  40. ;;;  paired.
  41. ;;;
  42. ;;;  To use: 
  43. ;;;     load autoinsert.el
  44. ;;;     setq auto-insert-directory to an appropriate value, which
  45. ;;;       must end in "/"
  46. ;;;
  47. ;;;  Author:  Charlie Martin
  48. ;;;           Department of Computer Science and
  49. ;;;           National Biomedical Simulation Resource
  50. ;;;           Box 3709
  51. ;;;           Duke University Medical Center
  52. ;;;           Durham, NC 27710
  53. ;;;          (crm@cs.duke.edu,mcnc!duke!crm) 
  54.  
  55. ;;; Code:
  56.  
  57. (defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex")
  58.                 ("\\.c$" . "c-insert.c")
  59.                 ("\\.h$" . "h-insert.c")
  60.                 ("[Mm]akefile" . "makefile.inc")
  61.                 ("\\.bib$" . "tex-insert.tex"))
  62.   "A list specifying text to insert by default into a new file.
  63. Elements look like (REGEXP . FILENAME); if the new file's name
  64. matches REGEXP, then the file FILENAME is inserted into the buffer.
  65. Only the first matching element is effective.")
  66.  
  67. ;;; Establish a default value for auto-insert-directory
  68. (defvar auto-insert-directory "~/insert/"
  69.   "*Directory from which auto-inserted files are taken.")
  70.  
  71. (defun insert-auto-insert-files ()
  72.   "Insert default contents into a new file.
  73. Matches the visited file name against the elements of `auto-insert-alist'."
  74.   (let ((alist auto-insert-alist)
  75.     ;; remove backup suffixes from file name
  76.         (name (file-name-sans-versions buffer-file-name))
  77.         (insert-file nil))
  78.  
  79.     ;; find first matching alist entry
  80.     (while (and (not insert-file) alist)
  81.       (if (string-match (car (car alist)) name)
  82.           (setq insert-file (cdr (car alist)))
  83.         (setq alist (cdr alist))))
  84.  
  85.     ;; Now, if we found an appropriate insert file, insert it
  86.     (if insert-file
  87.         (let ((file (concat auto-insert-directory insert-file)))
  88.           (if (file-readable-p file)
  89.           (progn
  90.         (insert-file-contents file)
  91.         (set-buffer-modified-p nil))
  92.             (message "Auto-insert: file %s not found" file)
  93.         (sleep-for 1))))))
  94.  
  95. ;; Make this feature take effect when a nonexistent file is visited.
  96. (setq find-file-not-found-hooks
  97.       (cons 'insert-auto-insert-files
  98.         find-file-not-found-hooks))
  99.  
  100. ;;; autoinsert.el ends here
  101.