summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-07-05 19:35:46 +0200
committerBastien Guerry <bzg@altern.org>2012-07-05 19:35:46 +0200
commit2bab6b7b6af31e4720a11b13ec081f2368457bb8 (patch)
treebb3beed286477cae1535e5919c23d4cd6908d1c0
parent9498b5c6dca9aa2d8742ff9c1102c85cafaba0d4 (diff)
downloadorg-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.el14
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)))