diff options
author | Kyle Meyer <kyle@kyleam.com> | 2015-10-14 23:36:12 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2015-10-14 23:36:12 -0400 |
commit | 3e08fad6b7387584001e511295efd1b0ed18f342 (patch) | |
tree | 4087505d64a559629cfd709ba3f49b5be99acaa3 /lisp | |
parent | 36afc83b2679f9dc4993ff5e51ab72189a78a851 (diff) | |
download | emacs.d-3e08fad6b7387584001e511295efd1b0ed18f342.tar.gz |
Use bibtex functions to access bounds information
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/init-bib.el | 40 |
1 files changed, 19 insertions, 21 deletions
diff --git a/lisp/init-bib.el b/lisp/init-bib.el index 8068898..c438b90 100644 --- a/lisp/init-bib.el +++ b/lisp/init-bib.el @@ -49,11 +49,11 @@ case, unless the word is the first word in the title. Capitalize all other words unless they are protected by brackets." (save-excursion (bibtex-beginning-of-entry) - (let* ((text-bounds (cdr (bibtex-search-forward-field "title" t))) - (beg (car text-bounds)) - (end (cadr text-bounds))) + (let* ((bounds (bibtex-search-forward-field "title" t)) + (beg (bibtex-start-of-text-in-field bounds))) (goto-char (1- beg)) - (while (re-search-forward "\\(\\W\\)\\(\\w+\\)\\(\\W\\)" end t) + (while (re-search-forward "\\(\\W\\)\\(\\w+\\)\\(\\W\\)" + (bibtex-end-of-text-in-field bounds) t) (cond ((and (string= (match-string 1) "{") (string= (match-string 3) "}")) @@ -82,12 +82,12 @@ all other words unless they are protected by brackets." "Convert multiple spaces in author list to single space." (save-excursion (bibtex-beginning-of-entry) - (let* ((text-bounds (cdr (bibtex-search-forward-field "author" t))) - (beg (car text-bounds)) - (end (cadr text-bounds))) - (when text-bounds + (let* ((bounds (bibtex-search-forward-field "author" t)) + (beg (bibtex-start-of-text-in-field bounds))) + (when bounds (goto-char beg) - (while (re-search-forward "\\(\\s-+\\) and" end t) + (while (re-search-forward "\\(\\s-+\\) and" + (bibtex-end-of-text-in-field bounds) t) (replace-match "" nil nil nil 1)) (goto-char beg) (fill-paragraph))))) @@ -120,24 +120,22 @@ to "Use double hyphen for page range." (save-excursion (bibtex-beginning-of-entry) - (let* ((text-bounds (cdr (bibtex-search-forward-field "pages" t))) - (beg (car text-bounds)) - (end (cadr text-bounds))) - (when text-bounds - (goto-char beg) - (and (re-search-forward "[^A-z0-9]*-[^A-z0-9]*" end t) + (let ((bounds (bibtex-search-forward-field "pages" t))) + (when bounds + (goto-char (bibtex-start-of-text-in-field bounds)) + (and (re-search-forward "[^A-z0-9]*-[^A-z0-9]*" + (bibtex-end-of-text-in-field bounds) t) (replace-match "--")))))) (defun km/bibtex-remove-doi-leader () "Remove leading part (http:...) of doi URL." (save-excursion (bibtex-beginning-of-entry) - (let* ((text-bounds (cdr (bibtex-search-forward-field "doi" t))) - (beg (car text-bounds)) - (end (cadr text-bounds))) - (when text-bounds - (goto-char beg) - (and (re-search-forward "http://dx.doi.org/" end t) + (let ((bounds (bibtex-search-forward-field "doi" t))) + (when bounds + (goto-char (bibtex-start-of-text-in-field bounds)) + (and (re-search-forward "http://dx.doi.org/" + (bibtex-end-of-text-in-field bounds) t) (replace-match "")))))) (defun km/bibtex-downcase-keys () |