Replace citeproc style struct slot cite-note with category

citeproc-context.el

@@ -37,6 +37,8 @@
 (require 'citeproc-prange)
 (require 'citeproc-style)
 
+(declare-function citeproc-style-category "citeproc-style" (style))
+
 (cl-defstruct (citeproc-context (:constructor citeproc-context--create))
   "A struct representing the context for rendering CSL elements."
   vars macros terms date-text date-numeric opts locale-opts
@@ -214,7 +216,7 @@ documentation of `citeproc-render-varlist-in-rt', while MODE is
 the rendering mode, `bib' or `cite', and CITE-POS is a cite
 position. Returns an appropriate attribute to be added or nil if
 no internal links should be produced."
-  (let ((note-style (citeproc-style-cite-note style)))
+  (let ((note-style (string= (citeproc-style-category style) "note")))
     (unless (or (and internal-links (not (memq internal-links '(auto bib-links))))
 		(and note-style (eq mode 'bib) (or (null internal-links)
 						   (eq internal-links 'auto))))

citeproc-style.el

@@ -37,6 +37,7 @@
 
 (cl-defstruct (citeproc-style (:constructor citeproc-style--create))
   "A struct representing a parsed and localized CSL style.
+CATEGORY is the style's category as a string,
 INFO is the style's general info (currently simply the
   corresponding fragment of the parsed xml),
 OPTS, BIB-OPTS, CITE-OPTS and LOCALE-OPTS are alists of general
@@ -49,16 +50,15 @@ BIB-SORT-ORDERS and CITE-SORT-ORDERS are the lists of sort orders
   the n-th key should be in ascending or desending order,
 CITE-LAYOUT-ATTRS contains the attributes of the citation layout
   as an alist,
-CITE-NOTE is non-nil iff the style's citation-format is \"note\",
 DATE-TEXT and DATE-NUMERIC are the style's date formats,
 LOCALE contains the locale to be used or nil if not set,
 MACROS is an alist with macro names as keys and corresponding
   anonymous rendering functions,
 TERMS is the style's parsed term-list,
 USES-YS-VAR is non-nil iff the style uses the YEAR-SUFFIX
   CSL-variable."
-  info opts bib-opts bib-sort bib-sort-orders
-  bib-layout cite-opts cite-note cite-sort cite-sort-orders
+  category info opts bib-opts bib-sort bib-sort-orders
+  bib-layout cite-opts cite-sort cite-sort-orders
   cite-layout cite-layout-attrs locale-opts macros terms
   uses-ys-var date-text date-numeric locale)
 
@@ -98,12 +98,12 @@ in-style locale information will be loaded (if available)."
     (--each (cddr parsed-style)
       (pcase (car it)
 	('info
-	 (let ((info-lst (cddr it)))
+	 (let* ((info-lst (cddr it))
+		(category-info (cl-find-if (lambda (x) (eq 'category (car x)))
+					   info-lst))
+		(category (cdaadr category-info)))
 	   (setf (citeproc-style-info style) info-lst
-		 (citeproc-style-cite-note style)
-		 (not (not (member '(category
-				     ((citation-format . "note")))
-				   info-lst))))))
+		 (citeproc-style-category style) category)))
 	('locale
 	 (let ((lang (alist-get 'lang (cadr it))))
 	   (when (and (citeproc-locale--compatible-p lang locale)