1 ;;; bib-mode.el --- major mode for editing bib files
3 ;; Copyright (C) 1989 Free Software Foundation, Inc.
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
27 ;; GNU Emacs code to help maintain databases compatible with (troff)
28 ;; refer and lookbib. The file bib-file should be set to your
29 ;; bibliography file. Keys are automagically inserted as you type,
30 ;; and appropriate keys are presented for various kinds of entries.
35 "Major mode for editing bib files."
39 (defcustom bib-file
"~/my-bibliography.bib"
40 "Default name of file used by `addbib'."
44 (defcustom unread-bib-file
"~/to-be-read.bib"
45 "Default name of file used by `unread-bib' in Bib mode."
49 (defvar bib-mode-map
(copy-keymap text-mode-map
))
50 (define-key bib-mode-map
"\C-M" 'return-key-bib
)
51 (define-key bib-mode-map
"\C-c\C-u" 'unread-bib
)
52 (define-key bib-mode-map
"\C-c\C-@" 'mark-bib
)
53 (define-key bib-mode-map
"\e`" 'abbrev-mode
)
54 (defvar bib-mode-abbrev-table nil
55 "Abbrev table used in Bib mode")
58 "Set up editor to add to troff bibliography file specified
59 by global variable `bib-file'. See description of `bib-mode'."
62 (goto-char (point-max))
67 "Mode for editing `lookbib' style bibliographies.
68 Hit RETURN to get next % field key.
69 If you want to ignore this field, just hit RETURN again.
70 Use `text-mode' to turn this feature off.
72 journal papers: A* T D J V N P K W X
73 articles in books & proceedings: A* T D B E* I C P K W X
74 tech reports: A* T D R I C K W X
75 books: A* T D I C K W X
79 A uthor T itle D ate J ournal
80 V olume N umber P age K eywords
81 B in book or proceedings E ditor C ity & state
82 I nstitution, school, or publisher
83 R eport number or 'phd thesis' or 'masters thesis' or 'draft' or
84 'unnumbered' or 'unpublished'
85 W here can be found locally (login name, or ailib, etc.)
86 X comments (not used in indexing)
88 \\[unread-bib] appends current entry to a different file (for example,
89 a file of papers to be read in the future), given by the value of the
90 variable `unread-bib-file'.
91 \\[mark-bib] marks current or previous entry.
92 Abbreviations are saved in `bib-mode-abbrev-table'.
93 Hook can be stored in `bib-mode-hook'.
94 Field keys given by variable `bib-assoc'.
101 (use-local-map bib-mode-map
)
102 (setq mode-name
"Bib")
103 (setq major-mode
'bib-mode
)
104 (define-abbrev-table 'bib-mode-abbrev-table
())
105 (setq local-abbrev-table bib-mode-abbrev-table
)
107 (run-hooks 'bib-mode-hook
)
110 (defconst bib-assoc
'(
133 "Describes bibliographic database format. A line beginning with
134 the car of an entry is followed by one beginning with the cdr.
137 (defun bib-find-key (slots)
142 (progn (previous-line 1) (bib-find-key bib-assoc
))))
143 ((looking-at (car (car slots
)))
145 (t (bib-find-key (cdr slots
)))
149 (defcustom bib-auto-capitalize t
150 "*True to automatically capitalize appropriate fields in Bib mode."
154 (defconst bib-capitalized-fields
"%[AETCBIJR]")
156 (defun return-key-bib ()
157 "Magic when user hits return, used by `bib-mode'."
160 (let (empty new-key beg-current end-current
)
162 (setq empty
(looking-at "%. $"))
170 (setq end-current
(point))
172 (setq beg-current
(point))
173 (setq new-key
(bib-find-key bib-assoc
))
174 (if (and (not empty
) bib-auto-capitalize
175 (looking-at bib-capitalized-fields
))
177 (bib-capitalize-title-region (+ (point) 3) end-current
)))
178 (goto-char beg-current
)
183 (insert-string new-key
))
187 "Set mark at beginning of current or previous bib entry, point at end."
189 (beginning-of-line nil
)
190 (if (looking-at "^ *$") (re-search-backward "[^ \n]" nil
2))
191 (re-search-backward "^ *$" nil
2)
192 (re-search-forward "^%")
193 (beginning-of-line nil
)
195 (re-search-forward "^ *$" nil
2)
197 (beginning-of-line nil
))
200 "Append current or previous entry to file of unread papers
201 named by variable `unread-bib-file'."
204 (if (get-file-buffer unread-bib-file
)
205 (append-to-buffer (get-file-buffer unread-bib-file
) (mark) (point))
206 (append-to-file (mark) (point) unread-bib-file
)))
209 (defvar bib-capitalize-title-stop-words
211 "the\\|and\\|of\\|is\\|a\\|an\\|of\\|for\\|in\\|to\\|in\\|on\\|at\\|"
212 "by\\|with\\|that\\|its")
213 "Words not to be capitalized in a title (unless the first word).")
215 (defvar bib-capitalize-title-stop-regexp
216 (concat "\\(" bib-capitalize-title-stop-words
"\\)\\(\\b\\|'\\)"))
218 (defun bib-capitalize-title-region (begin end
)
219 "Like `capitalize-region', but don't capitalize stop words, except the first."
221 (let ((case-fold-search nil
) (orig-syntax-table (syntax-table)))
224 (set-syntax-table text-mode-syntax-table
)
225 (narrow-to-region begin end
)
226 (goto-char (point-min))
227 (if (looking-at "[A-Z][a-z]*[A-Z]")
230 (while (re-search-forward "\\<" nil t
)
231 (if (looking-at "[A-Z][a-z]*[A-Z]")
233 (if (let ((case-fold-search t
))
234 (looking-at bib-capitalize-title-stop-regexp
))
236 (capitalize-word 1)))
238 (set-syntax-table orig-syntax-table
))))
241 (defun bib-capitalize-title (s)
242 "Like `capitalize', but don't capitalize stop words, except the first."
244 (set-buffer (get-buffer-create "$$$Scratch$$$"))
247 (bib-capitalize-title-region (point-min) (point-max))
252 ;;; bib-mode.el ends here