X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=jmax-bibtex.el;h=e560e540c609191d1efc0bbff04a1246e9027b97;hp=60022757f07ec497ffb40404966450b8d1251b59;hb=fe35530c71e664ee515b3c3891bf812e561032e7;hpb=adc1b43c244346788f5d0c93c22900a941345f06 diff --git a/jmax-bibtex.el b/jmax-bibtex.el index 6002275..e560e54 100644 --- a/jmax-bibtex.el +++ b/jmax-bibtex.el @@ -183,6 +183,7 @@ This is defined in `jmax-bibtex-journal-abbreviations'." ("ú" . "{\\\\'u}") ("ú" . "{\\\\'u}") ("š" . "{\\\\v{s}}") + ("ř" . "{\\\\v{r}}") ("İ" . "{\\\\.I}") ("ğ" . "{\\\\u{g}}") ("δ" . "$\\\\delta$") @@ -259,7 +260,7 @@ all the title entries in articles." (setf (car words) (s-capitalize (car words)))) (setq title (mapconcat 'identity words " ")) - + ;; Capitalize letters after a dash (while (string-match "[a-zA-Z]-\\([a-z]\\)" title start) @@ -267,7 +268,7 @@ all the title entries in articles." (setf (substring title (match-beginning 1) (match-end 1)) (format "%s" (upcase char))) (setq start (match-end 1)))) - + ;; this is defined in doi-utils (bibtex-set-field "title" @@ -299,7 +300,7 @@ all the title entries in articles." word (s-downcase word))) words)) - + ;; capitalize first word (setf (car words) (s-capitalize (car words))) @@ -314,7 +315,7 @@ all the title entries in articles." ;; (format "{%s}" (upcase char))) (format "%s" (upcase char))) (setq start (match-end 1)))) - + ;; this is defined in doi-utils (bibtex-set-field "title" title) @@ -415,11 +416,11 @@ N is a prefix argument. If it is numeric, jump that many entries back." "thin wrapper to get `jmax-bibtex' to open pdf" (interactive) (org-ref-open-bibtex-pdf)) - + (defvar jmax-bibtex-menu-funcs '() - "Functions to run in doi menu. Each entry is a list of (key menu-name function). + "Functions to run in doi menu. Each entry is a list of (key menu-name function). The function must take one argument, the doi.") (setq jmax-bibtex-menu-funcs @@ -435,7 +436,7 @@ The function must take one argument, the doi.") "Menu command to run in a bibtex entry. Functions from `jmax-bibtex-menu-funcs'. They all rely on the entry having a doi." - + (interactive) ;; construct menu string as a message (message @@ -450,7 +451,7 @@ entry having a doi." (char-to-string input) jmax-bibtex-menu-funcs))) (when choice (funcall - (elt + (elt choice 2) (jmax-bibtex-entry-doi)