X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=sci-id.el;h=e29388c2b382cef037a230a3057b487be103530f;hb=107f7d826250fa9a511bebb5ac4c14ace7c5dc90;hp=79f046c7b9b6de285fdd7026fdb089c0a07c4ae9;hpb=fbb66c7ffaa563fda92992e7612ab295f514a3a0;p=org-ref.git
diff --git a/sci-id.el b/sci-id.el
index 79f046c..e29388c 100644
--- a/sci-id.el
+++ b/sci-id.el
@@ -30,14 +30,38 @@
(lambda
(link-string)
(browse-url
- (format "http://orcid.org/%s" link-string))))
+ (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))))
+ (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 desc))
+ ((eq format 'html)
+ (format "scopusid:%s" keyword keyword)))))
(provide 'sci-id)
;;; sci-id.el ends here