annotate lisp/textmodes/refbib.el @ 72260:6e63f47b8977

(w32_menu_show, w32_dialog_show): Call Fsignal to quit when no option selected except when for_click.
author Jason Rumney <jasonr@gnu.org>
date Thu, 03 Aug 2006 22:05:07 +0000
parents 067115a6e738
children f7702c5f335d c5406394f567
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
659
505130d1ddf8 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
1 ;;; refbib.el --- convert refer-style references to ones usable by Latex bib
505130d1ddf8 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
2
68648
067115a6e738 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64815
diff changeset
3 ;; Copyright (C) 1989, 2002, 2003, 2004, 2005,
067115a6e738 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64815
diff changeset
4 ;; 2006 Free Software Foundation, Inc.
845
213978acbc1e entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 829
diff changeset
5
829
f6f8f3eae92f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
6 ;; Author: Henry Kautz <kautz@research.att.com>
64791
ef236edf96ec No more contact with Henry Kautz.
Richard M. Stallman <rms@gnu.org>
parents: 64751
diff changeset
7 ;; Maintainer: FSF
829
f6f8f3eae92f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
8 ;; Keywords: bib, tex
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 659
diff changeset
9
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
11
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 659
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
15 ;; any later version.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
16
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
21
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 60918
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 60918
diff changeset
25 ;; Boston, MA 02110-1301, USA.
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
26
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 659
diff changeset
27 ;;; Commentary:
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 659
diff changeset
28
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
29 ;; Use: from a buffer containing the refer-style bibliography,
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
30 ;; M-x r2b-convert-buffer
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
31 ;; Program will prompt for an output buffer name, and will log
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
32 ;; warnings during the conversion process in the buffer *Log*.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
33
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 659
diff changeset
34 ;;; Change Log:
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 659
diff changeset
35
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
36 ;; HISTORY
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
37 ;; 9/88, created H.Kautz
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
38 ;; modified 1/19/89, allow books with editor but no author;
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
39 ;; added %O ordering field;
60918
58a53f588384 * textmodes/refbib.el, textmodes/refer.el, textmodes/reftex-cite.el,
Werner LEMBERG <wl@gnu.org>
parents: 52401
diff changeset
40 ;; appended invalid multiple fields, instead of
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
41 ;; discarding;
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
42 ;; added rule, a tech report whose %R number
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
43 ;; contains "ISBN" is really a book
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
44 ;; added rule, anything with an editor is a book
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
45 ;; or a proceedings
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
46 ;; added 'manual type, for items with institution
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
47 ;; but no author or editor
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
48 ;; fixed bug so trailing blanks are trimmed
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
49 ;; added 'proceedings type
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
50 ;; used "organization" field for proceedings
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
51 ;; modified 2/16/89, updated help messages
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
52 ;; modified 2/23/89, include capitalize stop words in r2b stop words,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
53 ;; fixed problems with contractions (e.g. it's),
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
54 ;; caught multiple stop words in a row
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
55 ;; modified 3/1/89, fixed capitalize-title for first words all caps
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
56 ;; modified 3/15/89, allow use of " to delimit fields
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14002
diff changeset
57 ;; modified 4/18/89, properly "quote" special characters on output
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 659
diff changeset
58
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 659
diff changeset
59 ;;; Code:
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 659
diff changeset
60
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
61 ;**********************************************************
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
62 ; User Parameters
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
63
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
64 (defgroup refbib nil
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
65 "Convert refer-style references to ones usable by Latex bib."
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
66 :prefix "r2b-"
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
67 :group 'wp)
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
68
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
69 (defcustom r2b-trace-on nil
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
70 "*Non-nil means trace conversion."
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
71 :type 'boolean
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
72 :group 'refbib)
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
73
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
74 (defcustom r2b-journal-abbrevs
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
75 '(
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
76 )
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
77 "Abbreviation list for journal names.
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
78 If the car of an element matches a journal name exactly, it is replaced by
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
79 the cadr when output. Braces must be included if replacement is a
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
80 {string}, but not if replacement is a bibtex abbreviation. The cadr
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
81 may be eliminated if is exactly the same as the car.
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
82 Because titles are capitalized before matching, the abbreviation
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
83 for the journal name should be listed as beginning with a capital
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
84 letter, even if it really doesn't.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
85 For example, a value of '((\"Aij\" \"{Artificial Intelligence}\")
7639
67b7d1ea7b2e Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
86 \(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
87 \"Artificial Intelligence\", but would replace Ijcai81 with the
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
88 BibTeX macro \"ijcai7\"."
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
89 :type '(repeat (list string string))
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
90 :group 'refbib)
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
91
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
92 (defcustom r2b-booktitle-abbrevs
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
93 '(
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
94 )
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
95 "Abbreviation list for book and proceedings names.
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
96 If the car of an element matches a title or booktitle exactly, it is
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
97 replaced by the cadr when output. Braces must be included if
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
98 replacement is a {string}, but not if replacement is a bibtex
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
99 abbreviation. The cadr may be eliminated if is exactly the same as
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
100 the car.
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
101 Because titles are capitalized before matching, the abbreviated title
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
102 should be listed as beginning with a capital letter, even if it doesn't.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
103 For example, a value of '((\"Aij\" \"{Artificial Intelligence}\")
7639
67b7d1ea7b2e Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
104 \(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
105 \"Artificial Intelligence\", but would replace Ijcai81 with the
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
106 BibTeX macro \"ijcai7\"."
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
107 :type '(repeat (list string string))
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
108 :group 'refbib)
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
109
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
110 (defcustom r2b-proceedings-list
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
111 '()
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
112 "Assoc list of books or journals which are really conference proceedings,
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
113 but whose name and whose abbrev expansion (as defined in `r2b-journal-abbrevs'
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
114 and `r2b-booktitle-abbrevs') does not contain the words \"conference\" or
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
115 \"proceedings\". (Those cases are handled automatically.)
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
116 The entry must match the given data exactly.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
117 Because titles are capitalized before matching, the items in this list
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
118 should begin with a capital letter.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
119 For example, suppose the title \"Ijcai81\" is used for the proceedings of
16420
35bc9eed0c1f (r2b-proceedings-list, r2b-help-message): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 16284
diff changeset
120 a conference, and its expansion is the BibTeX macro \"ijcai7\". Then
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
121 `r2b-proceedings-list' should be '((\"Ijcai81\") ...). If instead its
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
122 expansion were \"Proceedings of the Seventh International Conference
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
123 on Artificial Intelligence\", then you would NOT need to include Ijcai81
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
124 in `r2b-proceedings-list' (although it wouldn't cause an error)."
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
125 :type '(repeat (list string string))
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
126 :group 'refbib)
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
127
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
128 (defvar r2b-additional-stop-words
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
129 "Some\\|What"
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
130 "Words not to be used to build the citation key.
16284
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
131 This is in addition to the `r2b-capitalize-title-stop-words'.")
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
132
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
133 (defcustom r2b-delimit-with-quote t
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
134 "*If true, then use \" to delimit fields, otherwise use braces."
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
135 :type 'boolean
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
136 :group 'refbib)
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
137
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
138 ;**********************************************************
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
139 ; Utility Functions
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
140
16284
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
141 (defvar r2b-capitalize-title-stop-words
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
142 (concat
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
143 "the\\|and\\|of\\|is\\|a\\|an\\|of\\|for\\|in\\|to\\|in\\|on\\|at\\|"
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
144 "by\\|with\\|that\\|its")
16284
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
145 "Words not to be capitalized in a title (unless the first word).")
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
146
16284
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
147 (defvar r2b-capitalize-title-stop-regexp
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
148 (concat "\\(" r2b-capitalize-title-stop-words "\\)\\(\\b\\|'\\)"))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
149
16284
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
150 (defun r2b-capitalize-title-region (begin end)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
151 "Like `capitalize-region', but don't capitalize stop words, except the first."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
152 (interactive "r")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
153 (let ((case-fold-search nil) (orig-syntax-table (syntax-table)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
154 (unwind-protect
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
155 (save-restriction
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
156 (set-syntax-table text-mode-syntax-table)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
157 (narrow-to-region begin end)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
158 (goto-char (point-min))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
159 (if (looking-at "[A-Z][a-z]*[A-Z]")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
160 (forward-word 1)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
161 (capitalize-word 1))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
162 (while (re-search-forward "\\<" nil t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
163 (if (looking-at "[A-Z][a-z]*[A-Z]")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
164 (forward-word 1)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
165 (if (let ((case-fold-search t))
16284
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
166 (looking-at r2b-capitalize-title-stop-regexp))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
167 (downcase-word 1)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
168 (capitalize-word 1)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
169 ))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
170 (set-syntax-table orig-syntax-table))))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
171
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
172
16284
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
173 (defun r2b-capitalize-title (s)
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
174 "Like `capitalize', but don't capitalize stop words, except the first."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
175 (save-excursion
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
176 (set-buffer (get-buffer-create "$$$Scratch$$$"))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
177 (erase-buffer)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
178 (insert s)
16284
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
179 (r2b-capitalize-title-region (point-min) (point-max))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
180 (buffer-string)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
181
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
182 ;*********************************************************
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
183 (defun r2b-reset ()
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
184 "Unbind defvars, for debugging."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
185 (interactive)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
186 (makunbound 'r2b-journal-abbrevs)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
187 (makunbound 'r2b-booktitle-abbrevs)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
188 (makunbound 'r2b-proceedings-list)
16284
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
189 (makunbound 'r2b-capitalize-title-stop-words)
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
190 (makunbound 'r2b-capitalize-title-stop-regexp)
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
191 (makunbound 'r2b-additional-stop-words)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
192 (makunbound 'r2b-stop-regexp))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
193
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
194 (defvar r2b-stop-regexp
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
195 (concat "\\`\\(\\("
16284
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
196 r2b-additional-stop-words "\\|" r2b-capitalize-title-stop-words
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
197 "\\)\\('\\w*\\)?\\W+\\)*\\([A-Z0-9]+\\)"))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
198
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
199
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
200 (defun r2b-trace (&rest args)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
201 (if r2b-trace-on
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
202 (progn
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
203 (apply (function message) args)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
204 (sit-for 0))))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
205
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
206 (defun r2b-match (exp)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
207 "Returns string matched in current buffer."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
208 (buffer-substring (match-beginning exp) (match-end exp)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
209
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
210 (defcustom r2b-out-buf-name "*Out*"
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
211 "*Name of buffer for output from refer-to-bibtex."
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
212 :type 'string
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
213 :group 'refbib)
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
214
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
215 (defcustom r2b-log-name "*Log*"
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
216 "*Name of buffer for logs errors from refer-to-bibtex."
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
217 :type 'string
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
218 :group 'refbib)
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 16420
diff changeset
219
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
220 (defvar r2b-in-buf nil)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
221 (defvar r2b-out-buf nil)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
222 (defvar r2b-log nil)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
223
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
224 (defvar r2b-error-found nil)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
225
64815
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
226 (eval-when-compile
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
227 (defvar r2b-variables) (defvar r2bv-address) (defvar r2bv-annote)
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
228 (defvar r2bv-author) (defvar r2bv-booktitle) (defvar r2bv-date)
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
229 (defvar r2bv-decade) (defvar r2bv-editor) (defvar r2bv-entry-kind)
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
230 (defvar r2bv-institution) (defvar r2bv-journal) (defvar r2bv-keywords)
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
231 (defvar r2bv-kn) (defvar r2bv-month) (defvar r2bv-note)
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
232 (defvar r2bv-number) (defvar r2bv-ordering) (defvar r2bv-organization)
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
233 (defvar r2bv-pages) (defvar r2bv-primary-author) (defvar r2bv-publisher)
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
234 (defvar r2bv-school) (defvar r2bv-title) (defvar r2bv-title-first-word)
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
235 (defvar r2bv-tr) (defvar r2bv-type) (defvar r2bv-volume)
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
236 (defvar r2bv-where) (defvar r2bv-year))
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
237
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
238 (setq r2b-variables '(
64815
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
239 r2b-error-found
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
240 r2bv-author
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
241 r2bv-primary-author
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
242 r2bv-date
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
243 r2bv-year
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
244 r2bv-decade
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
245 r2bv-month
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
246 r2bv-title
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
247 r2bv-title-first-word
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
248 r2bv-editor
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
249 r2bv-annote
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
250 r2bv-tr
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
251 r2bv-address
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
252 r2bv-institution
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
253 r2bv-keywords
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
254 r2bv-booktitle
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
255 r2bv-journal
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
256 r2bv-volume
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
257 r2bv-number
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
258 r2bv-pages
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
259 r2bv-booktitle
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
260 r2bv-kn
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
261 r2bv-publisher
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
262 r2bv-organization
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
263 r2bv-school
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
264 r2bv-type
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
265 r2bv-where
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
266 r2bv-note
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
267 r2bv-ordering
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
268 ))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
269
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
270 (defun r2b-clear-variables ()
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
271 "Set all global vars used by r2b to nil."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
272 (let ((vars r2b-variables))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
273 (while vars
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
274 (set (car vars) nil)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
275 (setq vars (cdr vars)))))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
276
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
277 (defun r2b-warning (&rest args)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
278 (setq r2b-error-found t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
279 (princ (apply (function format) args) r2b-log)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
280 (princ "\n" r2b-log)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
281 (princ "\n" r2b-out-buf)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
282 (princ "% " r2b-out-buf)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
283 (princ (apply (function format) args) r2b-out-buf))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
284
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
285 (defun r2b-get-field (var field &optional unique required capitalize)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
286 "Set VAR to string value of FIELD, if any. If none, VAR is set to
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
287 nil. If multiple fields appear, then separate values with the
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
288 '\\nand\\t\\t', unless UNIQUE is non-nil, in which case log a warning
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
289 and just concatenate the values. Trim off leading blanks and tabs on
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
290 first line, and trailing blanks and tabs of every line. Log a warning
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
291 and set VAR to the empty string if REQUIRED is true. Capitalize as a
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
292 title if CAPITALIZE is true. Returns value of VAR."
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
293 (let (item val (not-past-end t))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
294 (r2b-trace "snarfing %s" field)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
295 (goto-char (point-min))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
296 (while (and not-past-end
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
297 (re-search-forward
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
298 (concat "^" field "\\b[ \t]*\\(.*[^ \t\n]\\)[ \t]*") nil t))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
299 (setq item (r2b-match 1))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
300 (while (and (setq not-past-end (zerop (forward-line 1)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
301 (not (looking-at "[ \t]*$\\|%")))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
302 (looking-at "\\(.*[^ \t\n]\\)[ \t]*$")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
303 (setq item (concat item "\n" (r2b-match 1)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
304 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
305 (if (null val)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
306 (setq val item)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
307 (if unique
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
308 (progn
60918
58a53f588384 * textmodes/refbib.el, textmodes/refer.el, textmodes/reftex-cite.el,
Werner LEMBERG <wl@gnu.org>
parents: 52401
diff changeset
309 (r2b-warning "*Invalid multiple field %s %s" field item)
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
310 (setq val (concat val "\n" item))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
311 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
312 (setq val (concat val "\n\t\tand " item))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
313 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
314 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
315 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
316 (if (and val capitalize)
16284
f4cc8bf7ca84 (r2b-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
317 (setq val (r2b-capitalize-title val)))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
318 (set var val)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
319 (if (and (null val) required)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
320 (r2b-require var))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
321 ))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
322
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
323 (defun r2b-set-match (var n regexp string )
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
324 "Set VAR to the Nth subpattern in REGEXP matched by STRING, or nil if none."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
325 (set var
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
326 (if (and (stringp string) (string-match regexp string))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
327 (substring string (match-beginning n) (match-end n))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
328 nil)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
329 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
330 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
331
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
332 (defvar r2b-month-abbrevs
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
333 '(("jan") ("feb") ("mar") ("apr") ("may") ("jun") ("jul") ("aug")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
334 ("sep") ("oct") ("nov") ("dec")))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
335
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
336 (defun r2b-convert-month ()
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
337 "Try to convert `r2bv-month' to a standard 3 letter name."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
338 (if r2bv-month
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
339 (let ((months r2b-month-abbrevs))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
340 (if (string-match "[^0-9]" r2bv-month)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
341 (progn
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
342 (while (and months (not (string-match (car (car months))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
343 r2bv-month)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
344 (setq months (cdr months)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
345 (if months
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
346 (setq r2bv-month (car (car months)))))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
347 (progn
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
348 (setq months (car (read-from-string r2bv-month)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
349 (if (and (numberp months)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
350 (> months 0)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
351 (< months 13))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
352 (setq r2bv-month (car (nth months r2b-month-abbrevs)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
353 (progn
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
354 (r2b-warning "* Ridiculous month")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
355 (setq r2bv-month nil))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
356 ))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
357 ))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
358 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
359 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
360
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
361 (defun r2b-snarf-input ()
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
362 "Parse buffer into global variables."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
363 (let ((case-fold-search t))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
364 (r2b-trace "snarfing...")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
365 (sit-for 0)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
366 (set-buffer r2b-in-buf)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
367 (goto-char (point-min))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
368 (princ " " r2b-log)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
369 (princ (buffer-substring (point) (progn (end-of-line) (point))) r2b-log)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
370 (terpri r2b-log)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
371
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
372 (r2b-get-field 'r2bv-author "%A")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
373 (r2b-get-field 'r2bv-editor "%E")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
374 (cond
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
375 (r2bv-author
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
376 (r2b-set-match 'r2bv-primary-author 1
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
377 "\\b\\(\\w+\\)[ \t]*\\($\\|,\\)" r2bv-author)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
378 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
379 (r2bv-editor
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
380 (r2b-set-match 'r2bv-primary-author 1
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
381 "\\b\\(\\w+\\)[ \t]*\\($\\|,\\)" r2bv-editor)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
382 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
383 (t
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
384 (setq r2bv-primary-author "")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
385 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
386 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
387
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
388 (r2b-get-field 'r2bv-date "%D" t t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
389 (r2b-set-match 'r2bv-year 0 "[12][0-9][0-9][0-9]" r2bv-date)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
390 (and (null r2bv-year)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
391 (r2b-set-match 'r2bv-year 1 "[^0-9]\\([0-9][0-9]\\)$" r2bv-date)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
392 (setq r2bv-year (concat "19" r2bv-year)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
393 (r2b-set-match 'r2bv-decade 1 "..\\(..\\)" r2bv-year)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
394 (r2b-set-match 'r2bv-month 0
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
395 "[0-9]+/\\|[a-zA-Z]+" r2bv-date)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
396 (if (and (stringp r2bv-month) (string-match "\\(.*\\)/$" r2bv-month))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
397 (setq r2bv-month (substring r2bv-month 0 (match-end 1))))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
398 (r2b-convert-month)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
399
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
400 (r2b-get-field 'r2bv-title "%T" t t t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
401 (r2b-set-match 'r2bv-title-first-word 4
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
402 r2b-stop-regexp
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
403 r2bv-title)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
404
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
405 (r2b-get-field 'r2bv-annote "%X" t )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
406 (r2b-get-field 'r2bv-tr "%R" t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
407 (r2b-get-field 'r2bv-address "%C" t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
408 (r2b-get-field 'r2bv-institution "%I" t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
409 (r2b-get-field 'r2bv-keywords "%K")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
410 (r2b-get-field 'r2bv-booktitle "%B" t nil t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
411 (r2b-get-field 'r2bv-journal "%J" t nil t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
412 (r2b-get-field 'r2bv-volume "%V" t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
413 (r2b-get-field 'r2bv-number "%N" t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
414 (r2b-get-field 'r2bv-pages "%P" t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
415 (r2b-get-field 'r2bv-where "%W" t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
416 (r2b-get-field 'r2bv-ordering "%O" t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
417 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
418 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
419
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
420
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
421 (defun r2b-put-field (field data &optional abbrevs)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
422 "Print bibtex FIELD = {DATA} if DATA not null; precede
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
423 with a comma and newline; if ABBREVS list is given, then
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
424 try to replace the {DATA} with an abbreviation."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
425 (if data
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
426 (let (match nodelim multi-line index)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
427 (cond
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
428 ((and abbrevs (setq match (assoc data abbrevs)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
429 (if (null (cdr match))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
430 (setq data (car match))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
431 (setq data (car (cdr match))))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
432 (setq nodelim t))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
433 ((and (not (equal data ""))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
434 (not (string-match "[^0-9]" data)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
435 (setq nodelim t))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
436 (t
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
437 (setq index 0)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
438 (while (string-match "[\\~^]" data index)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
439 (setq data (concat (substring data 0 (match-beginning 0))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
440 "\\verb+"
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
441 (substring data (match-beginning 0) (match-end 0))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
442 "+"
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
443 (substring data (match-end 0))))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
444 (setq index (+ (match-end 0) 7)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
445 (setq index 0)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
446 (while (string-match "[$&%#_{}]" data index)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
447 (setq data (concat (substring data 0 (match-beginning 0))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
448 "\\"
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
449 (substring data (match-beginning 0))))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
450 (setq index (+ (match-end 0) 1)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
451 (setq index 0)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
452 (if r2b-delimit-with-quote
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
453 (while (string-match "\"" data index)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
454 (setq data (concat (substring data 0 (match-beginning 0))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
455 "{\"}"
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
456 (substring data (match-end 0))))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
457 (setq index (+ (match-end 0) 2))))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
458 ))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
459 (princ ", \n ")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
460 (princ field)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
461 (princ " =\t")
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
462 (if (not nodelim)
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
463 (if r2b-delimit-with-quote
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
464 (princ "\"")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
465 (princ "{")))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
466 (string-match ".*" data)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
467 (if (> (match-end 0) 59)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
468 (princ "\n"))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
469 (princ data)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
470 (if (not nodelim)
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
471 (if r2b-delimit-with-quote
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
472 (princ "\"")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
473 (princ "}")))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
474 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
475 ))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
476
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
477
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
478 (defun r2b-require (vars)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
479 "If any of VARS is null, set to empty string and log error."
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
480 (cond
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
481 ((null vars))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
482 ((listp vars) (r2b-require (car vars)) (r2b-require (cdr vars)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
483 (t
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
484 (if (null (symbol-value vars))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
485 (progn
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
486 (r2b-warning "*Missing value for field %s" vars)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
487 (set vars "")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
488 )))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
489 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
490 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
491
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
492
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
493 (defmacro r2b-moveq (new old)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
494 "Set NEW to OLD and set OLD to nil."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
495 (list 'progn (list 'setq new old) (list 'setq old 'nil)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
496
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
497 (defun r2b-isa-proceedings (name)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
498 "Return t if NAME is the name of proceedings."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
499 (and
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
500 name
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
501 (or
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
502 (string-match "proceedings\\|conference" name)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
503 (assoc name r2b-proceedings-list)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
504 (let ((match (assoc name r2b-booktitle-abbrevs)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
505 (and match
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
506 (string-match "proceedings\\|conference" (car (cdr match)))))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
507 )))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
508
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
509 (defun r2b-isa-university (name)
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
510 "Return t if NAME is a university or similar organization,
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
511 but not a publisher."
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
512 (and
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
513 name
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
514 (string-match "university" name)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
515 (not (string-match "press" name))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
516
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
517 ))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
518
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
519 (defun r2b-barf-output ()
243
6155e428f077 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 36
diff changeset
520 "Generate bibtex based on global variables."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
521 (let ((standard-output r2b-out-buf) (case-fold-search t) match)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
522
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
523 (r2b-trace "...barfing")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
524 (sit-for 0)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
525 (set-buffer r2b-out-buf)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
526
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
527 (setq r2bv-kn (concat r2bv-primary-author r2bv-decade
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
528 r2bv-title-first-word))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
529
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
530 (setq r2bv-entry-kind
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
531 (cond
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
532 ((r2b-isa-proceedings r2bv-journal)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
533 (r2b-moveq r2bv-booktitle r2bv-journal)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
534 (if (r2b-isa-university r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
535 (r2b-moveq r2bv-organization r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
536 (r2b-moveq r2bv-publisher r2bv-institution))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
537 (r2b-moveq r2bv-note r2bv-tr)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
538 (r2b-require 'r2bv-author)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
539 'inproceedings)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
540 ((r2b-isa-proceedings r2bv-booktitle)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
541 (if (r2b-isa-university r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
542 (r2b-moveq r2bv-organization r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
543 (r2b-moveq r2bv-publisher r2bv-institution))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
544 (r2b-moveq r2bv-note r2bv-tr)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
545 (r2b-require 'r2bv-author)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
546 'inproceedings)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
547 ((and r2bv-tr (string-match "phd" r2bv-tr))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
548 (r2b-moveq r2bv-school r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
549 (r2b-require 'r2bv-school )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
550 (r2b-require 'r2bv-author)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
551 'phdthesis)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
552 ((and r2bv-tr (string-match "master" r2bv-tr))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
553 (r2b-moveq r2bv-school r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
554 (r2b-require 'r2bv-school )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
555 (r2b-require 'r2bv-author)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
556 'mastersthesis)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
557 ((and r2bv-tr (string-match "draft\\|unpublish" r2bv-tr))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
558 (r2b-moveq r2bv-note r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
559 (r2b-require 'r2bv-author)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
560 'unpublished)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
561 (r2bv-journal
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
562 (r2b-require 'r2bv-author)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
563 'article)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
564 (r2bv-booktitle
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
565 (r2b-moveq r2bv-publisher r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
566 (r2b-moveq r2bv-note r2bv-tr)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
567 (r2b-require 'r2bv-publisher)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
568 (r2b-require 'r2bv-author)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
569 'incollection)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
570 ((and r2bv-author
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
571 (null r2bv-editor)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
572 (string-match "\\`personal communication\\'" r2bv-title))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
573 'misc)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
574 ((r2b-isa-proceedings r2bv-title)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
575 (if (r2b-isa-university r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
576 (r2b-moveq r2bv-organization r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
577 (r2b-moveq r2bv-publisher r2bv-institution))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
578 (r2b-moveq r2bv-note r2bv-tr)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
579 'proceedings)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
580 ((or r2bv-editor
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
581 (and r2bv-author
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
582 (or
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
583 (null r2bv-tr)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
584 (string-match "\\bisbn\\b" r2bv-tr))))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
585 (r2b-moveq r2bv-publisher r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
586 (r2b-moveq r2bv-note r2bv-tr)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
587 (r2b-require 'r2bv-publisher)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
588 (if (null r2bv-editor)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
589 (r2b-require 'r2bv-author))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
590 'book)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
591 (r2bv-tr
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
592 (r2b-require 'r2bv-institution)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
593 (if (string-match
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
594 "\\`\\(\\(.\\|\n\\)+\\)[ \t\n]+\\([^ \t\n]\\)+\\'"
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
595 r2bv-tr)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
596 (progn
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
597 (setq r2bv-type (substring r2bv-tr 0 (match-end 1)))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
598 (setq r2bv-number (substring r2bv-tr
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
599 (match-beginning 3)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
600 (setq r2bv-tr nil))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
601 (r2b-moveq r2bv-number r2bv-tr))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
602 (r2b-require 'r2bv-author)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
603 'techreport)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
604 (r2bv-institution
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
605 (r2b-moveq r2bv-organization r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
606 'manual)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
607 (t
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
608 'misc)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
609 ))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
610
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
611 (r2b-require '( r2bv-year))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
612
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
613 (if r2b-error-found
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
614 (princ "\n% Warning -- Errors During Conversion Next Entry\n"))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
615
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
616 (princ "\n@")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
617 (princ r2bv-entry-kind)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
618 (princ "( ")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
619 (princ r2bv-kn)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
620
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
621 (r2b-put-field "author" r2bv-author )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
622 (r2b-put-field "title" r2bv-title r2b-booktitle-abbrevs)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
623 (r2b-put-field "year" r2bv-year )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
624
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
625 (r2b-put-field "month" r2bv-month r2b-month-abbrevs)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
626 (r2b-put-field "journal" r2bv-journal r2b-journal-abbrevs)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
627 (r2b-put-field "volume" r2bv-volume)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
628 (r2b-put-field "type" r2bv-type)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
629 (r2b-put-field "number" r2bv-number)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
630 (r2b-put-field "booktitle" r2bv-booktitle r2b-booktitle-abbrevs)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
631 (r2b-put-field "editor" r2bv-editor)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
632 (r2b-put-field "publisher" r2bv-publisher)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
633 (r2b-put-field "institution" r2bv-institution)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
634 (r2b-put-field "organization" r2bv-organization)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
635 (r2b-put-field "school" r2bv-school)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
636 (r2b-put-field "pages" r2bv-pages)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
637 (r2b-put-field "address" r2bv-address)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
638 (r2b-put-field "note" r2bv-note)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
639 (r2b-put-field "keywords" r2bv-keywords)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
640 (r2b-put-field "where" r2bv-where)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
641 (r2b-put-field "ordering" r2bv-ordering)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
642 (r2b-put-field "annote" r2bv-annote)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
643
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
644 (princ " )\n")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
645 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
646 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
647
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
648
64815
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
649 (defun r2b-convert-record (output)
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
650 "Transform current bib entry and append to buffer OUTPUT.
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
651 Do `\\[r2b-help]' for more info."
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
652 (interactive
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
653 (list (read-string "Output to buffer: " r2b-out-buf-name)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
654 (let (rec-end rec-begin not-done)
64815
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
655 (setq r2b-out-buf-name output)
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
656 (setq r2b-out-buf (get-buffer-create output))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
657 (setq r2b-in-buf (current-buffer))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
658 (set-buffer r2b-out-buf)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
659 (goto-char (point-max))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
660 (setq r2b-log (get-buffer-create r2b-log-name))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
661 (set-buffer r2b-log)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
662 (goto-char (point-max))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
663 (set-buffer r2b-in-buf)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
664 (setq not-done (re-search-forward "[^ \t\n]" nil t))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
665 (if not-done
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
666 (progn
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
667 (re-search-backward "^[ \t]*$" nil 2)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
668 (re-search-forward "^%")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
669 (beginning-of-line nil)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
670 (setq rec-begin (point))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
671 (re-search-forward "^[ \t]*$" nil 2)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
672 (setq rec-end (point))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
673 (narrow-to-region rec-begin rec-end)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
674 (r2b-clear-variables)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
675 (r2b-snarf-input)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
676 (r2b-barf-output)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
677 (set-buffer r2b-in-buf)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
678 (widen)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
679 (goto-char rec-end)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
680 t)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
681 nil
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
682 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
683 ))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
684
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
685
64815
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
686 (defun r2b-convert-buffer (output)
24811
adcead6b7ce1 Don't print any messages or display
Karl Heuer <kwzh@gnu.org>
parents: 20959
diff changeset
687 "Transform current buffer and append to buffer OUTPUT.
64815
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
688 Do `\\[r2b-help]' for more info."
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
689 (interactive
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
690 (list (read-string "Output to buffer: " r2b-out-buf-name)))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
691 (save-excursion
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
692 (setq r2b-log (get-buffer-create r2b-log-name))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
693 (set-buffer r2b-log)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
694 (erase-buffer))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
695 (widen)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
696 (goto-char (point-min))
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
697 (message "Working, please be patient...")
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
698 (sit-for 0)
64815
d5907fe7fee3 (r2b-convert-record, r2b-convert-buffer): Improve argument/docstring
Juanma Barranquero <lekktu@gmail.com>
parents: 64791
diff changeset
699 (while (r2b-convert-record output) t)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 24811
diff changeset
700 (message "Done, results in %s, errors in %s"
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
701 r2b-out-buf-name r2b-log-name)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
702 )
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
703
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
704 (defvar r2b-help-message
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
705 " Refer to Bibtex Bibliography Conversion
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
706
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
707 A refer-style database is of the form:
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
708
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
709 %A Joe Blow
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
710 %T Great Thoughts I've Thought
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
711 %D 1977
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
712 etc.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
713
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
714 This utility converts these kind of databases to bibtex form, for
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
715 users of TeX and LaTex. Instructions:
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
716 1. Visit the file containing the refer-style database.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
717 2. The command
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
718 M-x r2b-convert-buffer
16420
35bc9eed0c1f (r2b-proceedings-list, r2b-help-message): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 16284
diff changeset
719 converts the entire buffer, appending its output by default in a
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
720 buffer named *Out*, and logging progress and errors in a buffer
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
721 named *Log*. The original file is never modified.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
722 Note that results are appended to *Out*, so if that buffer
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
723 buffer already exists and contains material you don't want to
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
724 save, you should kill it first.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
725 3. Switch to the buffer *Out* and save it as a named file.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
726 4. To convert a single refer-style entry, simply position the cursor
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
727 at the entry and enter
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
728 M-x r2b-convert-record
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
729 Again output is appended to *Out* and errors are logged in *Log*.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
730
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
731 This utility is very robust and pretty smart about determining the
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
732 type of the entry. It includes facilities for expanding refer macros
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
733 to text, or substituting bibtex macros. Do M-x describe-variable on
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
734 r2b-journal-abbrevs
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
735 r2b-booktitle-abbrevs
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
736 r2b-proceedings-list
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
737 for information on these features.
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
738
829
f6f8f3eae92f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
739 Please send bug reports and suggestions to
f6f8f3eae92f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
740 Henry Kautz
f6f8f3eae92f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
741 kautz@research.att.com
f6f8f3eae92f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
742 allegra!kautz")
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
743
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
744
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
745 (defun r2b-help ()
24811
adcead6b7ce1 Don't print any messages or display
Karl Heuer <kwzh@gnu.org>
parents: 20959
diff changeset
746 "Print help describing the `refbib' package."
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
747 (interactive)
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
748 (with-output-to-temp-buffer "*Help*"
9848
1365bc291f4c (r2b-help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 7639
diff changeset
749 (princ r2b-help-message)
1365bc291f4c (r2b-help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 7639
diff changeset
750 (save-excursion
1365bc291f4c (r2b-help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 7639
diff changeset
751 (set-buffer standard-output)
1365bc291f4c (r2b-help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 7639
diff changeset
752 (help-mode))))
36
9697c13298e5 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
753
24811
adcead6b7ce1 Don't print any messages or display
Karl Heuer <kwzh@gnu.org>
parents: 20959
diff changeset
754 (provide 'refbib)
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 243
diff changeset
755 (provide 'refer-to-bibtex)
659
505130d1ddf8 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
756
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49599
diff changeset
757 ;;; arch-tag: 664afee2-6e76-4408-ba56-981d8a179586
659
505130d1ddf8 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
758 ;;; refbib.el ends here