Mercurial > emacs
view lisp/add-log.el @ 665:f9274ecd9acd
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 31 May 1992 18:36:59 +0000 |
parents | 36fbc3f71803 |
children | 7fa6b835da67 |
line wrap: on
line source
;;; add-log.el --- change log maintenance commands for Emacs ;; Copyright (C) 1985-1991 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. ;;;###autoload (defvar change-log-default-name nil "*Name of a change log file for \\[add-change-log-entry].") (defun change-log-name () (or change-log-default-name (if (eq system-type 'vax-vms) "$CHANGE_LOG$.TXT" "ChangeLog"))) (defun prompt-for-change-log-name () "Prompt for a change log name." (let ((default (change-log-name))) (expand-file-name (read-file-name (format "Log file (default %s): " default) nil default)))) ;;;###autoload (defun add-change-log-entry (&optional whoami file-name other-window) "Find change log file and add an entry for today. Optional arg (interactive prefix) non-nil means prompt for user name and site. Second arg is file name of change log. If nil, uses `change-log-default-name'. Third arg OTHER-WINDOW non-nil means visit in other window." (interactive (list current-prefix-arg (prompt-for-change-log-name))) (let* ((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)))) (or file-name (setq file-name (or change-log-default-name default-directory))) (if (file-directory-p file-name) (setq file-name (concat (file-name-as-directory file-name) (change-log-name)))) (set (make-local-variable 'change-log-default-name) file-name) (if (and other-window (not (equal file-name buffer-file-name))) (find-file-other-window file-name) (find-file file-name)) (undo-boundary) (goto-char (point-min)) (if (not (and (looking-at (substring (current-time-string) 0 10)) (looking-at (concat ".* " full-name " (" 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 "* "))) ;;;###autoload (define-key ctl-x-4-map "a" 'add-change-log-entry-other-window) ;;;###autoload (defun add-change-log-entry-other-window (&optional whoami file-name) "Find change log file in other window 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. Interactively, with a prefix argument, the file name is prompted for." (interactive (if current-prefix-arg (list current-prefix-arg (prompt-for-change-log-name)))) (add-change-log-entry whoami file-name t)) ;;; add-log.el ends here