Mercurial > emacs
diff lisp/add-log.el @ 661:36fbc3f71803
Initial revision
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Sat, 30 May 1992 23:52:26 +0000 |
parents | |
children | 7fa6b835da67 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/add-log.el Sat May 30 23:52:26 1992 +0000 @@ -0,0 +1,103 @@ +;;; 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