add latex formatting to scopusid
authorJohn Kitchin <jkitchin@andrew.cmu.edu>
Thu, 9 Apr 2015 13:33:18 +0000 (09:33 -0400)
committerJohn Kitchin <jkitchin@andrew.cmu.edu>
Thu, 9 Apr 2015 13:33:18 +0000 (09:33 -0400)
sci-id.el

index 7729a16..7f4b880 100644 (file)
--- a/sci-id.el
+++ b/sci-id.el
  (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 "<a href=\"http://orcid.org/%s\">orcid:%s</a>" 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 "<a href=\"http://www.researcherid.com/rid/%s\">ResearcherID:%s</a>"
+            keyword keyword)))))
 
 (org-add-link-type
  "scopusid"
    (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 "<a href=\"http://www.scopus.com/authid/detail.url?origin=AuthorProfile&authorId=%s\">scopusid:%s</a>" keyword keyword)))))
 
 (provide 'sci-id)
 ;;; sci-id.el ends here