diff options
| -rw-r--r-- | lisp/km-bib.el | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/lisp/km-bib.el b/lisp/km-bib.el index 360e08a..b7b7946 100644 --- a/lisp/km-bib.el +++ b/lisp/km-bib.el @@ -162,6 +162,44 @@ to (delete-region (bibtex-start-of-field bounds) (point)))))))) +(defun km/bibtex-author-last-name-first () + "Use last name first format for authors. + +Convert + + name1 name2 name3 and ... + +to + + name3, name1 name2 and ..." + (interactive) + (save-excursion + (bibtex-beginning-of-entry) + (let ((bounds (bibtex-search-forward-field "author" t))) + (when bounds + (let* ((beg (1+ (bibtex-start-of-text-in-field bounds))) + (end (1- (bibtex-end-of-text-in-field bounds))) + (author-list (buffer-substring-no-properties beg end)) + (author-re (rx line-start + (group (one-or-more not-newline)) + (syntax whitespace) + (group (one-or-more (not (syntax whitespace)))) + line-end)) + authors) + (with-temp-buffer + (insert (replace-regexp-in-string + " and " "\n" + (replace-regexp-in-string + "[\n\t ]+" " " author-list))) + (goto-char (point-min)) + (while (re-search-forward author-re nil t) + (push (concat (match-string 2) ", " (match-string 1)) + authors))) + (goto-char beg) + (delete-region beg end) + (insert (mapconcat #'identity (nreverse authors) " and ")) + (fill-paragraph)))))) + ;;;###autoload (defun km/browse-doi (doi) "Open DOI in browser. |