From: Alan Schmitt Date: Tue, 21 Apr 2015 16:25:15 +0000 (+0200) Subject: replacing white space in additional fields X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=commitdiff_plain;h=035dfe3e9315b761322a38f9f7db243209c7c25c replacing white space in additional fields --- diff --git a/org-ref.el b/org-ref.el index b9fcf30..6905efe 100644 --- a/org-ref.el +++ b/org-ref.el @@ -448,10 +448,14 @@ environment, only %l is available." (if reftex-comment-citations reftex-cite-comment-format ""))) - ((= l ?a) (reftex-format-names - (reftex-get-bib-names "author" entry) - (or n 2))) - ((= l ?A) (car (reftex-get-bib-names "author" entry))) + ((= l ?a) (replace-regexp-in-string + "\n\\|\t\\|\s+" " " + (reftex-format-names + (reftex-get-bib-names "author" entry) + (or n 2)))) + ((= l ?A) (replace-regexp-in-string + "\n\\|\t\\|\s+" " " + (car (reftex-get-bib-names "author" entry)))) ((= l ?b) (org-ref-reftex-get-bib-field "booktitle" entry "in: %s")) ((= l ?B) (reftex-abbreviate-title (org-ref-reftex-get-bib-field "booktitle" entry "in: %s"))) @@ -482,7 +486,9 @@ environment, only %l is available." ((= l ?U) (org-ref-reftex-get-bib-field "url" entry)) ((= l ?r) (org-ref-reftex-get-bib-field "address" entry)) ;; strip enclosing brackets from title if they are there - ((= l ?t) (org-ref-reftex-get-bib-field "title" entry)) + ((= l ?t) (replace-regexp-in-string + "\n\\|\t\\|\s+" " " + (org-ref-reftex-get-bib-field "title" entry))) ((= l ?T) (reftex-abbreviate-title ((replace-regexp-in-string "\n\\|\t\\|\s+" " "