update packages

lisp/org-ref/org-ref-extract.el

@@ -22,6 +22,11 @@
 
 ;;
 
+;;; Code:
+
+(declare-function org-ref-clean-bibtex-entry "org-ref-bibtex" ())
+(declare-function xml-substitute-special "xml" ())
+
 
 (defun org-ref--extract (html-buffer rx num)
   "Return content matched within HTML-BUFFER by RX at parenthesized
@@ -104,9 +109,12 @@ and return the buffer."
   (interactive "MOpenReview ID: ")
   (let* ((url (concat "https://openreview.net/forum?id=" id))
 	 (html-buffer (org-ref--html-buffer url)))
+    (with-current-buffer html-buffer
+      (replace-string-in-region "\\\\n" "\\n" (point-min) (point-max)))
     (org-ref--extract-entry-from-html
      html-buffer
-     '("\"_bibtex\":\"\\(@.+?}\\)\"" . 1)
+     '("\\\\\"_bibtex\\\\\":\\({\\\\\"value\\\\\":\\)?\\\\\"\\(@.+?}\\)\\\\\""
+       . 2)
      (replace-regexp-in-string "forum" "pdf" url)
      '("abstract" .
        ("<meta name=\"citation_abstract\" content=\"\\(.+?\\(\n.*?\\)*?\\)\"/>" . 1))
@@ -117,7 +125,7 @@ and return the buffer."
        ("\\(Summary\\|TL;DR\\).*?\"note-content-value\">\\(.+?\\)</span>" . 2))
      ;; Should we proactively download supplementary materials too?
      (cons "supp"
-	   (if-let ((supp (org-ref--extract
+	   (if-let* ((supp (org-ref--extract
 			   html-buffer
 			   ">Supplementary Material<.*?href=\"\\([^\"]+\\)" 1)))
 	       (concat "https://openreview.net" supp))))))
@@ -160,7 +168,7 @@ and return the buffer."
      '("abstract" . ("<h4>Abstract</h4>[ \n]*?\\(<p>\\)+\\(.+?\\)</p>" . 2))
      ;; Should we proactively download supplementary materials too?
      (cons "supp"
-	   (if-let
+	   (if-let*
 	       ((supp (org-ref--extract
 		       html-buffer
 		       "href=[\"']\\([^\"']+-Supplemental[^\"']*\\)[\"']" 1)))