X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=sci-id.el;h=7f4b880cc7f2a5f43d5e6922889a5375e8c6fde6;hp=7729a16ddc6778d3175967b7ac9d54c88aafcecf;hb=035dfe3e9315b761322a38f9f7db243209c7c25c;hpb=11182a0fffb1d0be7fa48e6ae6ca547b397cc244
diff --git a/sci-id.el b/sci-id.el
index 7729a16..7f4b880 100644
--- a/sci-id.el
+++ b/sci-id.el
@@ -30,14 +30,23 @@
(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"
@@ -46,7 +55,13 @@
(browse-url
(format
"http://www.scopus.com/authid/detail.url?origin=AuthorProfile&authorId=%s"
- link-string))))
+ 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