mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 21:07:54 +00:00
Code Releases Activity

oc-natbib: Refactor code to ease byte-compilation

Browse source 
* lisp/oc-natbib.el (org-cite-natbib--style-to-command): Refactor code
so byte-compilation is faster, and, in some cases, do not end with
Bytecode overflow error.

Reported-by: Maxim Nikulin <manikulin@gmail.com>
<http://lists.gnu.org/r/emacs-orgmode/2021-08/msg00100.html>
This commit is contained in:
Nicolas Goaziou 2021-08-08 16:10:14 +02:00
parent 4198cbd074
commit a6d93cfb62
1 changed files with 30 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
lisp/oc-natbib.el
View file

@ -78,32 +78,40 @@ If \"natbib\" package is already required in the document, e.g., through
"Return command name to use according to STYLE pair."
(pcase style
;; "author" style.
(`(,(or "author" "a") . ,(or "caps" "c")) "\\Citeauthor")
(`(,(or "author" "a") . ,(or "full" "f")) "\\citeauthor*")
(`(,(or "author" "a") . ,_) "\\citeauthor")
(`(,(or "author" "a") . ,variant)
(pcase variant
((or "caps" "c") "\\Citeauthor")
((or "full" "f") "\\citeauthor*")
(_ "\\citeauthor")))
;; "noauthor" style.
(`(,(or "noauthor" "na") . ,(or "bare" "b")) "\\citeyear")
(`(,(or "noauthor" "na") . ,_) "\\citeyearpar")
(`(,(or "noauthor" "na") . ,variant)
(pcase variant
((or "bare" "b") "\\citeyear")
(_ "\\citeyearpar")))
;; "nocite" style.
(`(,(or "nocite" "n") . ,_) "\\nocite")
(`(,(or "nocite" "n") . ,_) "\\nocite")
;; "text" style.
(`(,(or "text" "t") . ,(or "bare" "b")) "\\citealt")
(`(,(or "text" "t") . ,(or "caps" "c")) "\\Citet")
(`(,(or "text" "t") . ,(or "full" "f")) "\\citet*")
(`(,(or "text" "t") . ,(or "bare-caps" "bc")) "\\Citealt")
(`(,(or "text" "t") . ,(or "bare-full" "bf")) "\\citealt*")
(`(,(or "text" "t") . ,(or "caps-full" "cf")) "\\Citet*")
(`(,(or "text" "t") . ,(or "bare-caps-full" "bcf")) "\\Citealt*")
(`(,(or "text" "t") . ,_) "\\citet")
(`(,(or "text" "t") . ,variant)
(pcase variant
((or "bare" "b") "\\citealt")
((or "caps" "c") "\\Citet")
((or "full" "f") "\\citet*")
((or "bare-caps" "bc") "\\Citealt")
((or "bare-full" "bf") "\\citealt*")
((or "caps-full" "cf") "\\Citet*")
((or "bare-caps-full" "bcf") "\\Citealt*")
(_ "\\citet")))
;; Default ("nil") style.
(`(,_ . ,(or "bare" "b")) "\\citealp")
(`(,_ . ,(or "caps" "c")) "\\Citep")
(`(,_ . ,(or "full" "f")) "\\citep*")
(`(,_ . ,(or "bare-caps" "bc")) "\\Citealp")
(`(,_ . ,(or "bare-full" "bf")) "\\citealp*")
(`(,_ . ,(or "caps-full" "cf")) "\\Citep*")
(`(,_ . ,(or "bare-caps-full" "bcf")) "\\Citealp*")
(`(,_ . ,_) "\\citep")
(`(,_ . ,variant)
(pcase variant
((or "bare" "b") "\\citealp")
((or "caps" "c") "\\Citep")
((or "full" "f") "\\citep*")
((or "bare-caps" "bc") "\\Citealp")
((or "bare-full" "bf") "\\citealp*")
((or "caps-full" "cf") "\\Citep*")
((or "bare-caps-full" "bcf") "\\Citealp*")
(_ "\\citep")))
;; This should not happen.
(_ (error "Invalid style: %S" style))))