Merge pull request #162 from andras-simonyi/Add_function_to_report_su…

…perscript_cites Add function to report when a style produces superscript cites
andras-simonyi · May 5, 2024 · ce5d929 · ce5d929
2 parents 6e6068b + 3cc05b9
commit ce5d929
Showing 1 changed file with 5 additions and 0 deletions.
diff --git 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'."