diff options
author | Bastien Guerry <bzg@altern.org> | 2012-07-05 19:35:46 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-07-05 19:35:46 +0200 |
commit | 2bab6b7b6af31e4720a11b13ec081f2368457bb8 (patch) | |
tree | bb3beed286477cae1535e5919c23d4cd6908d1c0 | |
parent | 9498b5c6dca9aa2d8742ff9c1102c85cafaba0d4 (diff) | |
download | org-mode-2bab6b7b6af31e4720a11b13ec081f2368457bb8.tar.gz |
org.el: New option `org-doi-server-url'.
* org.el (org-doi-server-url): New option.
(org-open-at-point): Use it.
Thanks to Fabrice Pardo for requesting this.
-rw-r--r-- | lisp/org.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index 6c308dd..e2b423e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5442,6 +5442,12 @@ by a #." :version "24.1" :group 'org-appearance) +(defcustom org-doi-server-url "http://dx.doi.org/" + "The URL of the DOI server." + :type 'string + :version "24.2" + :group 'org-link) + (defun org-fontify-meta-lines-and-blocks (limit) (condition-case nil (org-fontify-meta-lines-and-blocks-1 limit) @@ -9720,10 +9726,10 @@ 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) - (org-link-escape - path org-link-escape-chars-browser) - path)))) + (browse-url (concat org-doi-server-url (if (org-string-match-p "[[:nonascii:] ]" path) + (org-link-escape + path org-link-escape-chars-browser) + path)))) ((member type '("message")) (browse-url (concat type ":" path))) |