;;; modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/12/27 by MINOURA Makoto <minoura@leo.bekkoame.or.jp>
;;; Version:
-;;; $Id: mu-register.el,v 1.3 1996-01-15 19:24:19 morioka Exp $
+;;; $Id: mu-register.el,v 1.12 1996-01-17 05:35:06 morioka Exp $
;;;
;;; This file is part of tl (Tiny Library).
;;;
\f
;;; Code:
+(require 'mu-cite)
+
+
;;; @ variables
;;;
(expand-file-name "~/.mu-register")
"*The name of the user environment file for mu-register.")
+(defvar mu-register/registration-symbol 'mu-register/citation-name-alist)
+
(defvar mu-register/citation-name-alist nil)
(load mu-register/registration-file t t t)
-
+(or (eq 'mu-register/citation-name-alist mu-register/registration-symbol)
+ (setq mu-register/citation-name-alist
+ (symbol-value mu-register/registration-symbol))
+ )
(defvar mu-register/minibuffer-history nil)
-;;; @ functions
+;;; @ database accessers
;;;
-;; get citation-name from From field
-(defsubst mu-register/get-citation-name (from)
- (cdr (assoc from mu-register/citation-name-alist)))
+;; get citation-name from the database
+(defmacro mu-register/get-citation-name (from)
+ (` (cdr (assoc (, from) mu-register/citation-name-alist))))
-;; register citation-name
+;; register citation-name to the database
(defun mu-register/add-citation-name (name from)
(let* ((elt (assoc from mu-register/citation-name-alist)))
(if elt
(mu-register/save-to-file)
))
-;; main function
+;; save to file
+(defun mu-register/save-to-file ()
+ (let* ((filename mu-register/registration-file)
+ (buffer (get-buffer-create " *mu-register*")))
+ (save-excursion
+ (set-buffer buffer)
+ (setq buffer-file-name filename)
+ (erase-buffer)
+ (insert ";; generated automatically by mu-register.\n")
+ (insert (format "(setq %s
+ '(" mu-register/registration-symbol))
+ (insert (mapconcat
+ (function prin1-to-string)
+ mu-register/citation-name-alist "\n "))
+ (insert "\n ))\n")
+ (save-buffer))
+ (kill-buffer buffer)))
+
+
+;;; @ main functions
+;;;
+
(defun mu-register/citation-name ()
(let* ((from
(rfc822/address-string
(if (null return1)
(setq return1 fullname))
(setq return
- (read-string "Citation name? "
- return1
- 'mu-register/minibuffer-history))
- (if (not (string-equal return return1))
- (let ((ans)
- (cursor-in-echo-area t))
- (while (null ans)
- (message (format "Register \"%s\" (y/n)? " return))
- (setq ans (read-event))
- (if (not (or (eq ans ?y)
- (eq ans ?n)))
- (setq ans nil)))
- (message "")
- (if (eq ans ?y)
- (mu-register/add-citation-name return from))))
+ (tl:read-string "Citation name? "
+ return1
+ 'mu-register/minibuffer-history))
+ (if (and (not (string-equal return return1))
+ (y-or-n-p (format "Register \"%s\"? " return))
+ )
+ (mu-register/add-citation-name return from)
+ )
+ return))
+
+(defun mu-register/citation-name-quietly ()
+ (let* ((from
+ (rfc822/address-string
+ (car (rfc822/parse-address
+ (rfc822/lexical-analyze
+ (mu-cite/get-value 'from))))))
+ (fullname (mu-cite/get-value 'full-name))
+ (return1
+ (mu-register/get-citation-name from))
+ return)
+ (if (null return1)
+ (progn
+ (setq return
+ (tl:read-string "Citation name? "
+ fullname
+ 'mu-register/minibuffer-history))
+ (if (and (not (string-equal return return1))
+ (y-or-n-p (format "Register \"%s\"? " return))
+ )
+ (mu-register/add-citation-name return from)
+ ))
+ (setq return return1)
+ )
return))
-;; save to file
-(defun mu-register/save-to-file ()
- (let* ((filename mu-register/registration-file)
- (buffer (get-buffer-create " *mu-register*")))
- (save-excursion
- (set-buffer buffer)
- (setq buffer-file-name filename)
- (erase-buffer)
- (insert ";; generated automatically by mu-register.\n")
- (insert "(setq mu-register/citation-name-alist\n\
- (quote\n\
- ")
- (insert (prin1-to-string mu-register/citation-name-alist))
- (insert "))\n")
- (save-buffer))
- (kill-buffer buffer)))
\f
;;; @ Installation
;;;
-(require 'mu-cite)
(set-alist 'mu-cite/default-methods-alist
- 'registered
+ 'prefix-register
+ (function mu-register/citation-name-quietly))
+(set-alist 'mu-cite/default-methods-alist
+ 'prefix-register-verbose
(function mu-register/citation-name))