;; 9/88, created H.Kautz
;; modified 1/19/89, allow books with editor but no author;
;; added %O ordering field;
-;; appended illegal multiple fields, instead of
+;; appended illegal multiple fields, instead of
;; discarding;
;; added rule, a tech report whose %R number
;; contains "ISBN" is really a book
:group 'refbib)
(defcustom r2b-journal-abbrevs
- '(
+ '(
)
- "Abbreviation list for journal names.
+ "Abbreviation list for journal names.
If the car of an element matches a journal name exactly, it is replaced by
the cadr when output. Braces must be included if replacement is a
{string}, but not if replacement is a bibtex abbreviation. The cadr
-may be eliminated if is exactly the same as the car.
+may be eliminated if is exactly the same as the car.
Because titles are capitalized before matching, the abbreviation
-for the journal name should be listed as beginning with a capital
+for the journal name should be listed as beginning with a capital
letter, even if it really doesn't.
For example, a value of '((\"Aij\" \"{Artificial Intelligence}\")
\(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
-\"Artificial Intelligence\", but would replace Ijcai81 with the
+\"Artificial Intelligence\", but would replace Ijcai81 with the
BibTeX macro \"ijcai7\"."
:type '(repeat (list string string))
:group 'refbib)
-(defcustom r2b-booktitle-abbrevs
- '(
+(defcustom r2b-booktitle-abbrevs
+ '(
)
"Abbreviation list for book and proceedings names.
If the car of an element matches a title or booktitle exactly, it is
should be listed as beginning with a capital letter, even if it doesn't.
For example, a value of '((\"Aij\" \"{Artificial Intelligence}\")
\(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
-\"Artificial Intelligence\", but would replace Ijcai81 with the
+\"Artificial Intelligence\", but would replace Ijcai81 with the
BibTeX macro \"ijcai7\"."
:type '(repeat (list string string))
:group 'refbib)
and `r2b-booktitle-abbrevs') does not contain the words \"conference\" or
\"proceedings\". (Those cases are handled automatically.)
The entry must match the given data exactly.
- Because titles are capitalized before matching, the items in this list
+ Because titles are capitalized before matching, the items in this list
should begin with a capital letter.
For example, suppose the title \"Ijcai81\" is used for the proceedings of
a conference, and its expansion is the BibTeX macro \"ijcai7\". Then
(makunbound 'r2b-stop-regexp))
(defvar r2b-stop-regexp
- (concat "\\`\\(\\("
+ (concat "\\`\\(\\("
r2b-additional-stop-words "\\|" r2b-capitalize-title-stop-words
"\\)\\('\\w*\\)?\\W+\\)*\\([A-Z0-9]+\\)"))
(r2b-trace "snarfing %s" field)
(goto-char (point-min))
(while (and not-past-end
- (re-search-forward
+ (re-search-forward
(concat "^" field "\\b[ \t]*\\(.*[^ \t\n]\\)[ \t]*") nil t))
(setq item (r2b-match 1))
(while (and (setq not-past-end (zerop (forward-line 1)))
(let ((months r2b-month-abbrevs))
(if (string-match "[^0-9]" r2bv-month)
(progn
- (while (and months (not (string-match (car (car months))
+ (while (and months (not (string-match (car (car months))
r2bv-month)))
(setq months (cdr months)))
(if months
(r2b-set-match 'r2bv-title-first-word 4
r2b-stop-regexp
r2bv-title)
-
+
(r2b-get-field 'r2bv-annote "%X" t )
(r2b-get-field 'r2bv-tr "%R" t)
(r2b-get-field 'r2bv-address "%C" t)
(princ ", \n ")
(princ field)
(princ " =\t")
- (if (not nodelim)
+ (if (not nodelim)
(if r2b-delimit-with-quote
(princ "\"")
(princ "{")))
(if (> (match-end 0) 59)
(princ "\n"))
(princ data)
- (if (not nodelim)
+ (if (not nodelim)
(if r2b-delimit-with-quote
(princ "\"")
(princ "}")))
(defun r2b-require (vars)
"If any of VARS is null, set to empty string and log error."
- (cond
+ (cond
((null vars))
((listp vars) (r2b-require (car vars)) (r2b-require (cdr vars)))
(t
(defun r2b-isa-university (name)
"Return t if NAME is a university or similar organization,
but not a publisher."
- (and
+ (and
name
(string-match "university" name)
(not (string-match "press" name))
(setq r2bv-kn (concat r2bv-primary-author r2bv-decade
r2bv-title-first-word))
-
+
(setq r2bv-entry-kind
- (cond
+ (cond
((r2b-isa-proceedings r2bv-journal)
(r2b-moveq r2bv-booktitle r2bv-journal)
(if (r2b-isa-university r2bv-institution)
'proceedings)
((or r2bv-editor
(and r2bv-author
- (or
+ (or
(null r2bv-tr)
(string-match "\\bisbn\\b" r2bv-tr))))
(r2b-moveq r2bv-publisher r2bv-institution)
'book)
(r2bv-tr
(r2b-require 'r2bv-institution)
- (if (string-match
- "\\`\\(\\(.\\|\n\\)+\\)[ \t\n]+\\([^ \t\n]\\)+\\'"
+ (if (string-match
+ "\\`\\(\\(.\\|\n\\)+\\)[ \t\n]+\\([^ \t\n]\\)+\\'"
r2bv-tr)
(progn
(setq r2bv-type (substring r2bv-tr 0 (match-end 1)))
- (setq r2bv-number (substring r2bv-tr
+ (setq r2bv-number (substring r2bv-tr
(match-beginning 3)))
(setq r2bv-tr nil))
(r2b-moveq r2bv-number r2bv-tr))
(defun r2b-convert-record (output-name)
"Transform current bib entry and append to buffer OUTPUT;
do \"M-x r2b-help\" for more info."
- (interactive
+ (interactive
(list (read-string "Output to buffer: " r2b-out-buf-name)))
(let (rec-end rec-begin not-done)
(setq r2b-out-buf-name output-name)
nil
)
))
-
-
+
+
(defun r2b-convert-buffer (output-name)
"Transform current buffer and append to buffer OUTPUT.
Do `M-x r2b-help' for more info."
- (interactive
+ (interactive
(list (read-string "Output to buffer: " r2b-out-buf-name)))
(save-excursion
(setq r2b-log (get-buffer-create r2b-log-name))
(message "Working, please be patient...")
(sit-for 0)
(while (r2b-convert-record output-name) t)
- (message "Done, results in %s, errors in %s"
+ (message "Done, results in %s, errors in %s"
r2b-out-buf-name r2b-log-name)
)
(provide 'refbib)
(provide 'refer-to-bibtex)
+;;; arch-tag: 664afee2-6e76-4408-ba56-981d8a179586
;;; refbib.el ends here
HCoop / bpt / emacs.git / blobdiff