mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-21 06:55:35 +00:00
Code

oc-csl: Refactor code to help byte-compilation

Browse Source 
* lisp/oc-csl.el (org-cite-csl--create-structure-params): Refactor pcase pattern
to avoid slow or in some cases non-terminating byte compilation.
This commit is contained in:
András Simonyi 2021-09-28 18:13:11 +02:00 committed by Bastien
parent 72a48c306f
commit b96aae4684
1 changed files with 38 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
lisp/oc-csl.el
View File

@ -284,50 +284,44 @@ INFO is the export state, as a property list."
"Return citeproc structure creation params for CITATION object.
STYLE is the citation style, as a string or nil. INFO is the export state, as
a property list."
(let* ((style (org-cite-citation-style citation info)))
(pcase style
;; "author" style.
(`(,(or "author" "a") . ,(or "caps" "c"))
'(:mode author-only :capitalize-first t :suppress-affixes t))
(`(,(or "author" "a") . ,(or "full" "f"))
'(:mode author-only :ignore-et-al t :suppress-affixes t))
(`(,(or "author" "a") . ,(or "caps-full" "cf"))
'(:mode author-only :capitalize-first t :ignore-et-al t :suppress-affixes t))
(`(,(or "author" "a") . ,_)
'(:mode author-only :suppress-affixes t))
;; "noauthor" style.
(`(,(or "noauthor" "na") . ,(or "bare" "b"))
'(:mode suppress-author :suppress-affixes t))
(`(,(or "noauthor" "na") . ,(or "caps" "c"))
'(:mode suppress-author :capitalize-first t))
(`(,(or "noauthor" "na") . ,(or "bare-caps" "bc"))
'(:mode suppress-author :suppress-affixes t :capitalize-first t))
(`(,(or "noauthor" "na") . ,_)
'(:mode suppress-author))
;; "year" style.
(`(,(or "year" "y") . ,(or "bare" "b"))
'(:mode year-only :suppress-affixes t))
(`(,(or "year" "y") . ,_)
'(:mode year-only))
;; "text" style.
(`(,(or "text" "t") . ,(or "caps" "c"))
'(:mode textual :capitalize-first t))
(`(,(or "text" "t") . ,(or "full" "f"))
'(:mode textual :ignore-et-al t))
(`(,(or "text" "t") . ,(or "caps-full" "cf"))
'(:mode textual :ignore-et-al t :capitalize-first t))
(`(,(or "text" "t") . ,_)
'(:mode textual))
;; Default "nil" style.
(`(,_ . ,(or "bare" "b"))
'(:suppress-affixes t))
(`(,_ . ,(or "caps" "c"))
'(:capitalize-first t))
(`(,_ . ,(or "bare-caps" "bc"))
'(:suppress-affixes t :capitalize-first t))
(`(,_ . ,_) nil)
;; This should not happen.
(_ (error "Invalid style: %S" style)))))
(let ((style (org-cite-citation-style citation info)))
(pcase style
;; "author" style.
(`(,(or "author" "a") . ,variant)
(pcase variant
((or "caps" "c") '(:mode author-only :capitalize-first t))
((or "full" "f") '(:mode author-only :ignore-et-al t))
((or "caps-full" "cf") '(:mode author-only :capitalize-first t :ignore-et-al t))
(_ '(:mode author-only))))
;; "noauthor" style.
(`(,(or "noauthor" "na") . ,variant)
(pcase variant
((or "bare" "b") '(:mode suppress-author :suppress-affixes t))
((or "caps" "c") '(:mode suppress-author :capitalize-first t))
((or "bare-caps" "bc")
'(:mode suppress-author :suppress-affixes t :capitalize-first t))
(_ '(:mode suppress-author))))
;; "year" style.
(`(,(or "year" "y") . ,variant)
(pcase variant
((or "bare" "b") '(:mode year-only :suppress-affixes t))
(_ '(:mode year-only))))
;; "text" style.
(`(,(or "text" "t") . ,variant)
(pcase variant
((or "caps" "c") '(:mode textual :capitalize-first t))
((or "full" "f") '(:mode textual :ignore-et-al t))
((or "caps-full" "cf") '(:mode textual :ignore-et-al t :capitalize-first t))
(_ '(:mode textual))))
;; Default "nil" style.
(`(,_ . ,variant)
(pcase variant
((or "caps" "c") '(:capitalize-first t))
((or "bare" "b") '(:suppress-affixes t))
((or "bare-caps" "bc") '(:suppress-affixes t :capitalize-first t))
(_ nil)))
;; This should not happen.
(_ (error "Invalid style: %S" style)))))
(defun org-cite-csl--no-citelinks-p (info)
"Non-nil when export BACKEND should not create cite-reference links."