-
-
Notifications
You must be signed in to change notification settings - Fork 244
/
org-ref-wos.el
107 lines (87 loc) · 3.95 KB
/
org-ref-wos.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
;;; org-ref-wos.el --- Web of Science functions -*- lexical-binding: t; -*-
;; Copyright (C) 2015-2024 John Kitchin
;; Author: John Kitchin <[email protected]>
;; 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 <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Adds a new org-mode link for a search in Web of Science.
;;; and an org-mode link for a link to an Accession number.
(require 'org)
(require 's)
(require 'org-ref-utils)
;;; Code:
(org-link-set-parameters "wos"
:follow (lambda (accession-number)
(browse-url
(concat
"http://ws.isiknowledge.com/cps/openurl/service?url_ver=Z39.88-2004&rft_id=info:ut/"
accession-number)))
:export (lambda (accession-number desc format)
(cond
((eq format 'html)
(format "<a href=\"http://ws.isiknowledge.com/cps/openurl/service?url_ver=Z39.88-2004&rft_id=info:ut/%s\">%s</a>"
accession-number
(or desc (concat "wos:" accession-number)))))))
(org-link-set-parameters "wos-search"
:follow (lambda (path)
(browse-url
(format "http://gateway.webofknowledge.com/gateway/Gateway.cgi?topic=%s&GWVersion=2&SrcApp=WEB&SrcAuth=HSB&DestApp=UA&DestLinkType=GeneralSearchSummary"
(s-join "+" (split-string path)))))
:export (lambda (link desc format)
(cond
((eq format 'html)
(format "<a href=\"%s\">%s</a>"
(format "http://gateway.webofknowledge.com/gateway/Gateway.cgi?topic=%s&GWVersion=2&SrcApp=WEB&SrcAuth=HSB&DestApp=UA&DestLinkType=GeneralSearchSummary"
(s-join "+" (split-string link)))
(or desc link))))))
;;;###autoload
(defun wos-search ()
"Open the word at point or selection in Web of Science as a topic query."
;; the url was derived from this page: http://wokinfo.com/webtools/searchbox/
(interactive)
(browse-url
(format "http://gateway.webofknowledge.com/gateway/Gateway.cgi?topic=%s&GWVersion=2&SrcApp=WEB&SrcAuth=HSB&DestApp=UA&DestLinkType=GeneralSearchSummary"
(if (region-active-p)
(mapconcat 'identity (split-string
(buffer-substring (region-beginning)
(region-end))) "+")
(thing-at-point 'word)))))
;;;###autoload
(defun wos ()
"Open Web of Science search page in a browser."
(interactive)
(browse-url "http://apps.webofknowledge.com"))
;;* Accession numbers
;; see http://kitchingroup.cheme.cmu.edu/blog/2015/06/08/Getting-a-WOS-Accession-number-from-a-DOI/
(defvar *wos-redirect* nil
"Holds the redirect from a `url-retrieve' callback function.")
(defvar *wos-waiting* nil
"Non-nil when waiting for a `url-retrieve' redirect.")
(defun wos-get-wos-redirect (url)
"Return final redirect URL for open-url."
(setq *wos-waiting* t)
(url-retrieve
url
(lambda (status)
(setq *wos-redirect* (car (last status)))
(setq *wos-waiting* nil)))
(while *wos-waiting* (sleep-for 0.1))
(url-unhex-string *wos-redirect*))
(defun wos-doi-to-accession-number (doi)
"Return a WOS Accession number for a DOI."
(let* ((open-url (concat "http://ws.isiknowledge.com/cps/openurl/service?url_ver=Z39.88-2004&rft_id=info:doi/" doi))
(redirect (wos-get-wos-redirect open-url)))
(message redirect)
(string-match "&KeyUT=WOS:\\([^&]*\\)&" redirect)
(match-string 1 redirect)))
(provide 'org-ref-wos)
;;; org-ref-wos.el ends here