From 2fad7be9e7bcc3e5bf36bca65ba127f4e9f4c848 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 10 Oct 2021 22:18:31 +0200 Subject: [PATCH] oc-biblatex: Support bare variant for noauthor style * lisp/oc-biblatex.el (org-cite-biblatex-export-citation): Support bare variant for noauthor style. --- lisp/oc-biblatex.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/oc-biblatex.el b/lisp/oc-biblatex.el index bb1ec1e4e..c8aa96de0 100644 --- a/lisp/oc-biblatex.el +++ b/lisp/oc-biblatex.el @@ -41,7 +41,7 @@ ;; ;; - author (a), including caps (c), full (f) and caps-full (cf) variants, ;; - locators (l), including bare (b), caps (c) and bare-caps (bc) variants, -;; - noauthor (na), +;; - noauthor (na), including bare (b) variant, ;; - nocite (n), ;; - text (t), including caps (c) variant, ;; - default style, including bare (b), caps (c) and bare-caps (bc) variants. @@ -232,7 +232,10 @@ a property list." ((or "bare-caps" "bc") '("Notecite")) (_ '("pnotecite")))) ;; "noauthor" style. - (`(,(or "noauthor" "na") . ,_) '("autocite*")) + (`(,(or "noauthor" "na") . ,variant) + (pcase variant + ((or "bare" "b") '("cite*")) + (_ '("autocite*")))) ;; "nocite" style. (`(,(or "nocite" "n") . ,_) '("nocite" nil t)) ;; "text" style. @@ -308,7 +311,7 @@ to the document, and set styles." :cite-styles '((("author" "a") ("caps" "c") ("full" "f") ("caps-full" "cf")) (("locators" "l") ("bare" "b") ("caps" "c") ("bare-caps" "bc")) - (("noauthor" "na")) + (("noauthor" "na") ("bare" "b")) (("nocite" "n")) (("text" "t") ("caps" "c")) (("nil") ("bare" "b") ("caps" "c") ("bare-caps" "bc"))))