summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-bib.el15
1 files changed, 15 insertions, 0 deletions
diff --git a/lisp/init-bib.el b/lisp/init-bib.el
index 1a0cd20..bcef8d0 100644
--- a/lisp/init-bib.el
+++ b/lisp/init-bib.el
@@ -14,6 +14,7 @@
bibtex-entry-format)))
(add-hook 'bibtex-clean-entry-hook 'km/bibtex-use-title-case)
+(add-hook 'bibtex-clean-entry-hook 'km/bibtex-single-space-author-list)
(defvar km/bibtex-unimportant-title-words
'("a" "aboard" "about" "above" "absent" "across" "after" "against"
@@ -72,6 +73,20 @@ all other words unless they are protected by brackets."
(downcase-word 1)
(capitalize-word 1))))))))
+(defun km/bibtex-single-space-author-list ()
+ "Convert multiple spaces in author list to single space."
+ (interactive)
+ (save-excursion
+ (bibtex-beginning-of-entry)
+ (let* ((text-bounds (cdr (bibtex-search-forward-field "author" t)))
+ (beg (car text-bounds))
+ (end (cadr text-bounds)))
+ (goto-char beg)
+ (while (re-search-forward "\\(\\s-+\\) and" end t)
+ (replace-match "" nil nil nil 1))
+ (goto-char beg)
+ (fill-paragraph))))
+
(defun km/browse-doi (doi)
"Open DOI in browser.
When called interactively, take the DOI from the text under