(url-copy-file pdf-url pdf)
;; now check if we got a pdf
(with-temp-buffer
- (insert-file-contents pdf-file)
+ (insert-file-contents pdf)
;; PDFS start with %PDF-1.x as the first few characters.
(if (not (string= (buffer-substring 1 6) "%PDF-"))
(progn
(message "%s" (buffer-string))
- (delete-file pdf-file))
- (message "%s saved" pdf-file)))
+ (delete-file pdf))
+ (message "%s saved" pdf)))
(org-open-file pdf)))
(org-ref-count-labels label))))
(lambda (keyword desc format)
(cond
- ((eq format 'html) (format "(<label>%s</label>)" path))
+ ((eq format 'html) (format "(<label>%s</label>)" keyword))
((eq format 'latex)
(format "\\label{%s}" keyword)))))
;formatting
(lambda (keyword desc format)
(cond
- ((eq format 'html) (format "(<ref>%s</ref>)" path))
+ ((eq format 'html) (format "(<ref>%s</ref>)" keyword))
((eq format 'latex)
(format "\\ref{%s}" keyword)))))
(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 path)))
+ (split-string link)))
(format "wos:%s" link)
)))