Use `org-ref-reftex-format-citation` for `org-ref-open-bibtex-notes`
[org-ref.git] / sci-id.el
1 ;;; sci-id.el --- org-mode links for scientific IDs  -*- lexical-binding: t; -*-
2
3 ;; Copyright (C) 2015  John Kitchin
4
5 ;; Author: John Kitchin <jkitchin@andrew.cmu.edu>
6 ;; Keywords:
7
8 ;; This program is free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation, either version 3 of the License, or
11 ;; (at your option) any later version.
12
13 ;; This program is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 ;; GNU General Public License for more details.
17
18 ;; You should have received a copy of the GNU General Public License
19 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
20
21 ;;; Commentary:
22
23 ;; New org-mode links for scientific IDs like orcid (http://orcid.org) and researcherid (http://www.researcherid.com)
24 ;; orcid:0000-0003-2625-9232
25 ;; researcherid:A-2363-2010
26
27 ;;; Code:
28 (org-add-link-type
29  "orcid"
30  (lambda
31    (link-string)
32    (browse-url
33     (format "http://orcid.org/%s" link-string)))
34  (lambda (keyword desc format)
35    (cond
36     ((eq format 'html)
37      (format "<a href=\"http://orcid.org/%s\">orcid:%s</a>" keyword keyword)))))
38
39 (org-add-link-type
40  "researcherid"
41  (lambda
42     (link-string)
43     (browse-url
44      (format "http://www.researcherid.com/rid/%s" link-string)))
45  (lambda (keyword desc format)
46    (cond
47     ((eq format 'html)
48      (format "<a href=\"http://www.researcherid.com/rid/%s\">ResearcherID:%s</a>"
49              keyword keyword)))))
50
51 (org-add-link-type
52  "scopusid"
53  (lambda
54    (link-string)
55    (browse-url
56     (format
57      "http://www.scopus.com/authid/detail.url?origin=AuthorProfile&authorId=%s"
58      link-string)))
59  (lambda (keyword desc format)
60    (cond
61     ((eq format 'latex)
62      (format "\\href{http://www.scopus.com/authid/detail.url\\?origin=AuthorProfile&authorId=%s}{%s}" keyword keyword))
63     ((eq format 'html)
64      (format "<a href=\"http://www.scopus.com/authid/detail.url?origin=AuthorProfile&authorId=%s\">scopusid:%s</a>" keyword keyword)))))
65
66 (provide 'sci-id)
67 ;;; sci-id.el ends here