From 3cc05b94e51d681994ee7e685364de9986dc7a6a Mon Sep 17 00:00:00 2001
From: Andras Simonyi <andras.simonyi@gmail.com>
Date: Sun, 5 May 2024 09:05:13 +0200
Subject: [PATCH] Add function to report when a style produces superscript
 cites

---
 citeproc-style.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/citeproc-style.el b/citeproc-style.el
index e2e6ca0..bd51497 100644
--- a/citeproc-style.el
+++ b/citeproc-style.el
@@ -317,6 +317,11 @@ position and before the (possibly empty) body."
   "Return whether csl STYLE is a note style."
   (string= (citeproc-style-category style) "note"))
 
+(defun citeproc-style-cite-superscript-p (style)
+  "Return whether csl STYLE has a superscript citaton layout."
+  (string= (alist-get 'vertical-align (citeproc-style-cite-layout-attrs style))
+	   "sup"))
+
 (defun citeproc-style-global-opts (style layout)
   "Return the global opts in STYLE for LAYOUT.
 LAYOUT is either `bib' or `cite'."