;;; mu-cite.el --- yet another citation tool for GNU Emacs
-;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; MINOURA Makoto <minoura@netlaputa.or.jp>
;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Version: $Revision: 7.47 $
+;; Version: $Revision: 7.51 $
;; Keywords: mail, news, citation
;; This file is part of MU (Message Utilities).
;;; Code:
(require 'std11)
-(require 'tl-str)
-(require 'tl-list)
+;;(require 'tl-str)
+;;(require 'tl-list)
+(require 'alist)
;;; @ version
;;;
+(defsubst get-version-string (id)
+ "Return a version-string from RCS ID."
+ (and (string-match ",v \\([0-9][0-9.][0-9.]+\\)" id)
+ (substring id (match-beginning 1)(match-end 1))
+ ))
+
(defconst mu-cite/RCS-ID
- "$Id: mu-cite.el,v 7.47 1997/02/01 18:29:43 morioka Exp $")
+ "$Id: mu-cite.el,v 7.51 1998/02/13 10:11:54 morioka Exp $")
(defconst mu-cite/version (get-version-string mu-cite/RCS-ID))
;;; @ field
;;;
-(defvar mu-cite/get-field-value-method-alist
- (list (cons 'mh-letter-mode
- (function
- (lambda (name)
- (if (and (stringp mh-sent-from-folder)
- (numberp mh-sent-from-msg))
- (save-excursion
- (set-buffer mh-sent-from-folder)
- (set-buffer mh-show-buffer)
- (and (boundp 'mime::preview/article-buffer)
- (bufferp mime::preview/article-buffer)
- (set-buffer mime::preview/article-buffer))
- (std11-field-body name)
- ))
- )))))
+(defvar mu-cite/get-field-value-method-alist nil
+ "Alist major-mode vs. function to get field-body of header.")
(defun mu-cite/get-field-value (name)
(or (std11-field-body name)
;;; @ prefix registration
;;;
-(defvar mu-cite/registration-file
- (expand-file-name "~/.mu-cite.el")
+(defvar mu-cite/registration-file (expand-file-name "~/.mu-cite.el")
"*The name of the user environment file for mu-cite.")
(defvar mu-cite/allow-null-string-registration nil
(defvar mu-cite/registration-symbol 'mu-cite/citation-name-alist)
(defvar mu-cite/citation-name-alist nil)
-(load mu-cite/registration-file t t t)
(or (eq 'mu-cite/citation-name-alist mu-cite/registration-symbol)
(setq mu-cite/citation-name-alist
(symbol-value mu-cite/registration-symbol))
;; get citation-name from the database
(defun mu-cite/get-citation-name (from)
- (assoc-value from mu-cite/citation-name-alist)
+ (cdr (assoc from mu-cite/citation-name-alist))
)
;; register citation-name to the database
(defun mu-cite/add-citation-name (name from)
(setq mu-cite/citation-name-alist
(put-alist from name mu-cite/citation-name-alist))
- (mu-cite/save-to-file)
+ (mu-cite/save-registration-file)
)
-;; save to file
-(defun mu-cite/save-to-file ()
- (let* ((filename mu-cite/registration-file)
+;; load/save registration file
+(defun mu-cite/load-registration-file ()
+ (let* ((file mu-cite/registration-file)
+ (buffer (get-buffer-create " *mu-register*")))
+ (if (file-readable-p file)
+ (unwind-protect
+ (save-excursion
+ (set-buffer buffer)
+ (erase-buffer)
+ (insert-file-contents file)
+ ;; (eval-buffer)
+ (eval-current-buffer))
+ (kill-buffer buffer))
+ )))
+(add-hook 'mu-cite-load-hook (function mu-cite/load-registration-file))
+
+(defun mu-cite/save-registration-file ()
+ (let* ((file mu-cite/registration-file)
(buffer (get-buffer-create " *mu-register*")))
- (save-excursion
- (set-buffer buffer)
- (setq buffer-file-name filename)
- (erase-buffer)
- (insert
- (format ";;; %s\n" (file-name-nondirectory filename)))
- (insert
- (format ";;; This file is generated automatically by mu-cite %s.\n\n"
- mu-cite/version))
- (insert (format "(setq %s\n '(" mu-cite/registration-symbol))
- (insert (mapconcat
- (function prin1-to-string)
- mu-cite/citation-name-alist "\n "))
- (insert "\n ))\n\n")
- (insert
- (format ";;; %s ends here.\n" (file-name-nondirectory filename)))
- (save-buffer))
- (kill-buffer buffer)))
+ (unwind-protect
+ (save-excursion
+ (set-buffer buffer)
+ (setq buffer-file-name file)
+ (erase-buffer)
+ (insert ";;; " (file-name-nondirectory file) "\n")
+ (insert ";;; This file is generated automatically by mu-cite "
+ mu-cite/version "\n\n")
+ (insert "(setq "
+ (symbol-name mu-cite/registration-symbol)
+ "\n '(")
+ (insert (mapconcat
+ (function prin1-to-string)
+ mu-cite/citation-name-alist "\n "))
+ (insert "\n ))\n\n")
+ (insert ";;; "
+ (file-name-nondirectory file)
+ " ends here.\n")
+ (save-buffer))
+ (kill-buffer buffer))))
;;; @ item methods
)
(defun mu-cite/get-value (item)
- (let ((ret (assoc-value item mu-cite/methods-alist)))
+ (let ((ret (cdr (assoc item mu-cite/methods-alist))))
(if (functionp ret)
(prog1
(setq ret (funcall ret))
ret)))
(defun mu-cite/eval-format (list)
- (mapconcat (function
- (lambda (elt)
- (cond ((stringp elt) elt)
- ((symbolp elt) (mu-cite/get-value elt))
- )))
- list "")
- )
+ (save-excursion
+ (mapconcat (function
+ (lambda (elt)
+ (cond ((stringp elt) elt)
+ ((symbolp elt) (mu-cite/get-value elt))
+ )))
+ list "")
+ ))
;;; @ main function
(setq prefix
(if (stringp ret)
ret
- (second ret)))
+ (cadr ret)))
(setq i (1+ i))
)
(cond ((> i 1) prefix)
(replace-match new)
))
+(defun string-compare-from-top (str1 str2)
+ (let* ((len1 (length str1))
+ (len2 (length str2))
+ (len (min len1 len2))
+ (p 0)
+ c1 c2)
+ (while (and (< p len)
+ (progn
+ (setq c1 (sref str1 p)
+ c2 (sref str2 p))
+ (eq c1 c2)
+ ))
+ (setq p (+ p (char-length c1)))
+ )
+ (and (> p 0)
+ (let ((matched (substring str1 0 p))
+ (r1 (and (< p len1)(substring str1 p)))
+ (r2 (and (< p len2)(substring str2 p)))
+ )
+ (if (eq r1 r2)
+ matched
+ (list 'seq matched (list 'or r1 r2))
+ )))))
+
;;; @ end
;;;