diff options
Diffstat (limited to 'lisp/add-log.el')
-rw-r--r-- | lisp/add-log.el | 87 |
1 files changed, 87 insertions, 0 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el new file mode 100644 index 00000000000..74dc3127c26 --- /dev/null +++ b/lisp/add-log.el @@ -0,0 +1,87 @@ +;; Change log maintenance commands for Emacs +;; Copyright (C) 1985 Free Software Foundation, Inc. + +;; This file is part of GNU Emacs. + +;; GNU Emacs 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 1, or (at your option) +;; any later version. + +;; GNU Emacs 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, 675 Mass Ave, Cambridge, MA 02139, USA. + + +(defun add-change-log-entry (whoami file-name &optional other-window) + "Find change log file and add an entry for today. +First arg (interactive prefix) non-nil means prompt for user name and site. +Second arg is file name of change log. +Optional third arg OTHER-WINDOW non-nil means visit in other window." + (interactive + (list current-prefix-arg + (let ((default + (if (eq system-type 'vax-vms) "$CHANGE_LOG$.TXT" "ChangeLog"))) + (expand-file-name + (read-file-name (format "Log file (default %s): " default) + nil default))))) + (let* ((default + (if (eq system-type 'vax-vms) "$CHANGE_LOG$.TXT" "ChangeLog")) + (full-name (if whoami + (read-input "Full name: " (user-full-name)) + (user-full-name))) + ;; Note that some sites have room and phone number fields in + ;; full name which look silly when inserted. Rather than do + ;; anything about that here, let user give prefix argument so that + ;; s/he can edit the full name field in prompter if s/he wants. + (login-name (if whoami + (read-input "Login name: " (user-login-name)) + (user-login-name))) + (site-name (if whoami + (read-input "Site name: " (system-name)) + (system-name)))) + (if (file-directory-p file-name) + (setq file-name (concat (file-name-as-directory file-name) + default))) + (if other-window (find-file-other-window file-name) (find-file file-name)) + (or (eq major-mode 'indented-text-mode) + (progn + (indented-text-mode) + (setq left-margin 8) + (setq fill-column 74))) + (auto-fill-mode 1) + (undo-boundary) + (goto-char (point-min)) + (if (not (and (looking-at (substring (current-time-string) 0 10)) + (save-excursion (re-search-forward "(.*@" + (save-excursion + (end-of-line) (point)) + t) + (skip-chars-backward "^(") + (looking-at login-name)))) + (progn (insert (current-time-string) + " " full-name + " (" login-name + "@" site-name ")\n\n"))) + (goto-char (point-min)) + (forward-line 1) + (while (looking-at "\\sW") + (forward-line 1)) + (delete-region (point) + (progn + (skip-chars-backward "\n") + (point))) + (open-line 3) + (forward-line 2) + (indent-to left-margin) + (insert "* "))) + +(defun add-change-log-entry-other-window () + "Find change log file in other window, and add an entry for today." + (interactive) + (add-change-log-entry nil default-directory t)) |