(defun doi-utils-get-wiley-pdf-url (redirect-url)
- "wileyscience direct hides the pdf url in html. we get it out here"
+ "Wileyscience direct hides the pdf url in html.
+We get it out here by parsing the html."
(setq *doi-utils-waiting* t)
(url-retrieve redirect-url
(lambda (status)
- (beginning-of-buffer)
+ (goto-char (point-min))
(re-search-forward "<iframe id=\"pdfDocument\" src=\"\\([^\"]*\\)\"" nil)
(setq *doi-utils-pdf-url* (match-string 1)
- ,*doi-utils-waiting* nil)))
+ *doi-utils-waiting* nil)))
(while *doi-utils-waiting* (sleep-for 0.1))
*doi-utils-pdf-url*)
(beginning-of-buffer)
(re-search-forward "pdfurl=\"\\([^\"]*\\)\"" nil t)
(setq *doi-utils-pdf-url* (match-string 1)
- ,*doi-utils-waiting* nil)))
+ *doi-utils-waiting* nil)))
(while *doi-utils-waiting* (sleep-for 0.1))
*doi-utils-pdf-url*)
(let ((second-redirect (replace-regexp-in-string
"http://linkinghub.elsevier.com/retrieve"
"http://www.sciencedirect.com/science/article"
- ,*doi-utils-redirect*)))
+ *doi-utils-redirect*)))
(message "getting pdf url from %s" second-redirect)
*doi-utils-pdf-url*)))