(defgroup bib nil
"Major mode for editing bib files."
:prefix "bib-"
:group 'external
:group 'wp)
(defcustom bib-file "~/my-bibliography.bib"
"Default name of file used by `addbib'."
:type 'file
:group 'bib)
(defcustom unread-bib-file "~/to-be-read.bib"
"Default name of file used by `unread-bib' in Bib mode."
:type 'file
:group 'bib)
(defvar bib-mode-map (copy-keymap text-mode-map))
(define-key bib-mode-map "\C-M" 'return-key-bib)
(define-key bib-mode-map "\C-c\C-u" 'unread-bib)
(define-key bib-mode-map "\C-c\C-@" 'mark-bib)
(define-key bib-mode-map "\e`" 'abbrev-mode)
(defun addbib ()
"Set up editor to add to troff bibliography file specified
by global variable `bib-file'. See description of `bib-mode'."
(interactive)
(find-file bib-file)
(goto-char (point-max))
(bib-mode)
)
(define-derived-mode bib-mode text-mode "Bib"
"Mode for editing `lookbib' style bibliographies.
Hit RETURN to get next % field key.
If you want to ignore this field, just hit RETURN again.
Use `text-mode' to turn this feature off.
journal papers: A* T D J V N P K W X
articles in books & proceedings: A* T D B E* I C P K W X
tech reports: A* T D R I C K W X
books: A* T D I C K W X
Fields:
A uthor T itle D ate J ournal
V olume N umber P age K eywords
B in book or proceedings E ditor C ity & state
I nstitution, school, or publisher
R eport number or 'phd thesis' or 'masters thesis' or 'draft' or
'unnumbered' or 'unpublished'
W here can be found locally (login name, or ailib, etc.)
X comments (not used in indexing)
\\[unread-bib] appends current entry to a different file (for example,
a file of papers to be read in the future), given by the value of the
variable `unread-bib-file'.
\\[mark-bib] marks current or previous entry.
Abbreviations are saved in `bib-mode-abbrev-table'.
Hook can be stored in `bib-mode-hook'.
Field keys given by variable `bib-assoc'.
Commands:
\\{bib-mode-map}"
(abbrev-mode 1))
(defconst bib-assoc
'((" *$" . "%A ")
("%A ." . "%A ")
("%A $" . "%T ")
("%T " . "%D ")
("%D " . "%J ")
("%J ." . "%V ")
("%V " . "%N ")
("%N " . "%P ")
("%P " . "%K ")
("%K " . "%W ")
("%W " . "%X ")
("%X " . "")
("%J $" . "%B ")
("%B ." . "%E ")
("%E ." . "%E ")
("%E $" . "%I ")
("%I " . "%C ")
("%C " . "%P ")
("%B $" . "%R ")
("%R " . "%I "))
"Describes bibliographic database format.
A line beginning with the car of an entry is followed by one beginning
with the cdr.")
(defun bib-find-key (slots)
(cond
((null slots)
(if (bobp)
""
(progn (previous-line 1) (bib-find-key bib-assoc))))
((looking-at (car (car slots)))
(cdr (car slots)))
(t (bib-find-key (cdr slots)))
))
(defcustom bib-auto-capitalize t
"*True to automatically capitalize appropriate fields in Bib mode."
:type 'boolean
:group 'bib)
(defconst bib-capitalized-fields "%[AETCBIJR]")
(defun return-key-bib ()
"Magic when user hits return, used by `bib-mode'."
(interactive)
(if (eolp)
(let (empty new-key beg-current end-current)
(beginning-of-line)
(setq empty (looking-at "%. $"))
(if (not empty)
(progn
(end-of-line)
(newline)
(forward-line -1)
))
(end-of-line)
(setq end-current (point))
(beginning-of-line)
(setq beg-current (point))
(setq new-key (bib-find-key bib-assoc))
(if (and (not empty) bib-auto-capitalize
(looking-at bib-capitalized-fields))
(save-excursion
(bib-capitalize-title-region (+ (point) 3) end-current)))
(goto-char beg-current)
(if empty
(kill-line nil)
(forward-line 1)
)
(insert new-key))
(newline)))
(defun mark-bib ()
"Set mark at beginning of current or previous bib entry, point at end."
(interactive)
(beginning-of-line nil)
(if (looking-at "^ *$") (re-search-backward "[^ \n]" nil 2))
(re-search-backward "^ *$" nil 2)
(re-search-forward "^%")
(beginning-of-line nil)
(push-mark (point))
(re-search-forward "^ *$" nil 2)
(next-line 1)
(beginning-of-line nil))
(defun unread-bib ()
"Append current or previous entry to file of unread papers
named by variable `unread-bib-file'."
(interactive)
(mark-bib)
(if (get-file-buffer unread-bib-file)
(append-to-buffer (get-file-buffer unread-bib-file) (mark) (point))
(append-to-file (mark) (point) unread-bib-file)))
(defvar bib-capitalize-title-stop-words
(concat
"the\\|and\\|of\\|is\\|a\\|an\\|of\\|for\\|in\\|to\\|in\\|on\\|at\\|"
"by\\|with\\|that\\|its")
"Words not to be capitalized in a title (unless the first word).")
(defvar bib-capitalize-title-stop-regexp
(concat "\\(" bib-capitalize-title-stop-words "\\)\\(\\b\\|'\\)"))
(defun bib-capitalize-title-region (begin end)
"Like `capitalize-region', but don't capitalize stop words, except the first."
(interactive "r")
(let ((case-fold-search nil) (orig-syntax-table (syntax-table)))
(unwind-protect
(save-restriction
(set-syntax-table text-mode-syntax-table)
(narrow-to-region begin end)
(goto-char (point-min))
(if (looking-at "[A-Z][a-z]*[A-Z]")
(forward-word 1)
(capitalize-word 1))
(while (re-search-forward "\\<" nil t)
(if (looking-at "[A-Z][a-z]*[A-Z]")
(forward-word 1)
(if (let ((case-fold-search t))
(looking-at bib-capitalize-title-stop-regexp))
(downcase-word 1)
(capitalize-word 1)))
))
(set-syntax-table orig-syntax-table))))
(defun bib-capitalize-title (s)
"Like `capitalize', but don't capitalize stop words, except the first."
(save-excursion
(set-buffer (get-buffer-create "$$$Scratch$$$"))
(erase-buffer)
(insert s)
(bib-capitalize-title-region (point-min) (point-max))
(buffer-string)))
(provide 'bib-mode)