update packages

lisp/org-ref/org-ref-arxiv.el

@@ -1,6 +1,6 @@
 ;;; org-ref-arxiv.el --- arxiv utilities for org-mode        -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2015-2021  John Kitchin
+;; Copyright (C) 2015-2024  John Kitchin
 
 ;; Author: John Kitchin <jkitchin@andrew.cmu.edu>
 ;; Keywords:
@@ -137,9 +137,9 @@ Returns a formatted BibTeX entry."
 		  (org-ref-replace-nonascii)
                   (bibtex-generate-autokey)))
 	   (doi (assq 'doi entry)))
-      (if doi
-	  (doi-utils-doi-to-bibtex-string (nth 2 doi))
-	;; no doi, so we fall back to the simple template
+      (unless (and doi
+	           (ignore-errors (doi-utils-doi-to-bibtex-string (nth 2 doi))))
+	;; no doi or inactive doi, so we fall back to the simple template
 	(format arxiv-entry-format-string key title names year arxiv-number category abstract url)))))
 
 
@@ -223,15 +223,7 @@ Returns a formatted BibTeX entry."
           (arxiv-maybe-arxiv-id-from-current-kill))
          (read-string
           "PDF: ")))
-  (let ((pdf-url (with-current-buffer
-                     (url-retrieve-synchronously
-                      (concat
-                       "http://arxiv.org/abs/" arxiv-number))
-                   ;; <meta name="citation_pdf_url" content="http://arxiv.org/pdf/0801.1144" />
-                   (goto-char (point-min))
-                   (search-forward-regexp
-                    "name=\\\"citation_pdf_url\\\" content=\\\"\\(.*\\)\\\"")
-                   (match-string 1))))
+  (let ((pdf-url (format "https://arxiv.org/pdf/%s" arxiv-number)))
     (url-copy-file pdf-url pdf)
     ;; now check if we got a pdf
     (unless (org-ref-pdf-p pdf)
@@ -296,8 +288,13 @@ key."
       (when (file-exists-p (concat pdfdir key ".pdf"))
 	(bibtex-end-of-entry)
 	(backward-char)
-	(insert (format "  file = {%s}\n  " (concat pdfdir key ".pdf")))))))
+	(insert (format "  file = {%s}\n  " (concat pdfdir key ".pdf")))))
+    (save-buffer)))
 
 
 (provide 'org-ref-arxiv)
 ;;; org-ref-arxiv.el ends here
+
+;; Local Variables:
+;; byte-compile-warnings: (not docstrings)
+;; End: