;;; sci-id.el --- org-mode links for scientific IDs -*- lexical-binding: t; -*- ;; Copyright (C) 2015 John Kitchin ;; Author: John Kitchin ;; Keywords: ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . ;;; Commentary: ;; New org-mode links for scientific IDs like orcid (http://orcid.org) and researcherid (http://www.researcherid.com) ;; orcid:0000-0003-2625-9232 ;; researcherid:A-2363-2010 ;;; Code: (org-add-link-type "orcid" (lambda (link-string) (browse-url (format "http://orcid.org/%s" link-string))) (lambda (keyword desc format) (cond ((eq format 'html) (format "orcid:%s" keyword keyword))))) (org-add-link-type "researcherid" (lambda (link-string) (browse-url (format "http://www.researcherid.com/rid/%s" link-string))) (lambda (keyword desc format) (cond ((eq format 'html) (format "ResearcherID:%s" keyword keyword))))) (org-add-link-type "scopusid" (lambda (link-string) (browse-url (format "http://www.scopus.com/authid/detail.url?origin=AuthorProfile&authorId=%s" link-string))) (lambda (keyword desc format) (cond ((eq format 'latex) (format "\\href{http://www.scopus.com/authid/detail.url\\?origin=AuthorProfile&authorId=%s}{%s}" keyword keyword)) ((eq format 'html) (format "scopusid:%s" keyword keyword))))) (provide 'sci-id) ;;; sci-id.el ends here