Re: doi proxy , a test patch

[Christian Moe <mail@christianmoe.com>]

I think so.

I find DOI links simplify life a great deal in any case:

(setq org-link-abbrev-alist
        '(("doi" . "http://dx.doi.org/")))

e.g. doi:10.1016/j.jphysparis.2011.09.011

(Simply replace "dx.doi.org" with any privileged access point your 
institution might have)

Yours,
Christian

On 5/23/12 2:27 PM, Jambunathan K wrote:
>
> Is there a way one can avoid the defcustom and achieve the same effect
> using link abbreviations? I don't know.
>
>    (info "(org) Link abbreviations")
>
>
> Fabrice Pardo<fabrice.pardo@lpn.cnrs.fr>  writes:
>
>> Hi,
>>
>> My institution library permits direct access to abstracts
>> with pdf contents if we access to article through an address like
>> http://dx.doi.org.my.instituti.on/... instead of http://dx.doi.org/...
>>
>> In the attached patch, I have defined a new variable org-doi-proxy
>> which can be customized by the user.
>>
>> diff --git a/lisp/org.el b/lisp/org.el
>> index 05f5375..c5d17a9 100644
>> --- a/lisp/org.el
>> +++ b/lisp/org.el
>> @@ -1838,6 +1838,10 @@ For more examples, see the system specific constants
>>   			(string :tag "Command")
>>   			(sexp :tag "Lisp form")))))
>>
>> +(defcustom org-doi-proxy "http://dx.doi.org/"
>> +  "The doi proxy"
>> +  :group 'org-link-follow
>> +  :type 'string)
>>
>>
>>   (defgroup org-refile nil
>> @@ -9714,7 +9718,7 @@ application the system uses for this file type."
>>   					 path))))
>>
>>   	 ((string= type "doi")
>> -	  (browse-url (concat "http://dx.doi.org/" (if (org-string-match-p "[[:nonascii:] ]" path)
>> +	  (browse-url (concat org-doi-proxy (if (org-string-match-p "[[:nonascii:] ]" path)
>>   						       (org-link-escape
>>   							path org-link-escape-chars-browser)
>>   						     path))))
>>
>