forked from mirrors/org-mode
oc-biblatex: Spell out multicite commands instead of guessing them
* lisp/oc-biblatex.el (org-cite-biblatex-export-citation): Provide full multicite command name. (org-cite-biblatex--command): Use name instead of guessing it from base name.
This commit is contained in:
parent
7e2d9091d0
commit
82bb04be22
|
@ -170,18 +170,18 @@ INFO is the export state, as a property list."
|
|||
;; a \relax unconditionally.
|
||||
"\\relax")))
|
||||
|
||||
(defun org-cite-biblatex--command (citation info base &optional multi no-opt)
|
||||
"Return biblatex command using BASE name for CITATION object.
|
||||
(defun org-cite-biblatex--command (citation info name &optional multi no-opt)
|
||||
"Return BibLaTeX command NAME for CITATION object.
|
||||
|
||||
INFO is the export state, as a property list.
|
||||
|
||||
When optional argument MULTI is non-nil, generate a \"multicite\" command when
|
||||
appropriate. When optional argument NO-OPT is non-nil, do not add optional
|
||||
arguments to the command."
|
||||
(format "\\%s%s"
|
||||
base
|
||||
(if (and multi (org-cite-biblatex--multicite-p citation))
|
||||
(concat "s" (org-cite-biblatex--multi-arguments citation info))
|
||||
When optional argument MULTI is non-nil, use it as a multicite
|
||||
command name when appropriate. When optional argument NO-OPT is
|
||||
non-nil, do not add optional arguments to the command."
|
||||
(if (and multi (org-cite-biblatex--multicite-p citation))
|
||||
(format "\\%s%s" multi (org-cite-biblatex--multi-arguments citation info))
|
||||
(format "\\%s%s"
|
||||
name
|
||||
(org-cite-biblatex--atomic-arguments
|
||||
(org-cite-get-references citation) info no-opt))))
|
||||
|
||||
|
@ -241,15 +241,15 @@ INFO is the export state, as a property list."
|
|||
;; "text" style.
|
||||
(`(,(or "text" "t") . ,variant)
|
||||
(pcase variant
|
||||
((or "caps" "c") '("Textcite" t))
|
||||
(_ '("textcite" t))))
|
||||
((or "caps" "c") '("Textcite" "Textcites"))
|
||||
(_ '("textcite" "textcites"))))
|
||||
;; Default "nil" style.
|
||||
(`(,_ . ,variant)
|
||||
(pcase variant
|
||||
((or "bare" "b") '("cite" t))
|
||||
((or "caps" "c") '("Autocite" t))
|
||||
((or "bare-caps" "bc") '("Cite" t))
|
||||
(_ '("autocite" t))))
|
||||
((or "bare" "b") '("cite" "cites"))
|
||||
((or "caps" "c") '("Autocite" "Autocites"))
|
||||
((or "bare-caps" "bc") '("Cite" "Cites"))
|
||||
(_ '("autocite" "autocites"))))
|
||||
;; This should not happen.
|
||||
(_ (error "Invalid style: %S" style)))))
|
||||
|
||||
|
|
Loading…
Reference in a new issue