From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jambunathan K Subject: Re: doi proxy , a test patch Date: Wed, 23 May 2012 17:57:51 +0530 Message-ID: <8162bnaxq0.fsf@gmail.com> References: <4FBCD000.7030104@lpn.cnrs.fr> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([208.118.235.92]:51868) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SXAfj-00046m-PK for emacs-orgmode@gnu.org; Wed, 23 May 2012 08:28:17 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SXAfe-0007Oo-1r for emacs-orgmode@gnu.org; Wed, 23 May 2012 08:28:11 -0400 Received: from mail-pb0-f41.google.com ([209.85.160.41]:53281) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SXAfd-0007OK-PK for emacs-orgmode@gnu.org; Wed, 23 May 2012 08:28:05 -0400 Received: by pbbrp2 with SMTP id rp2so10443055pbb.0 for ; Wed, 23 May 2012 05:28:03 -0700 (PDT) In-Reply-To: <4FBCD000.7030104@lpn.cnrs.fr> (Fabrice Pardo's message of "Wed, 23 May 2012 13:54:40 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Fabrice Pardo Cc: emacs-orgmode@gnu.org 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 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)))) > --