tec/emacs-config
tec
/
emacs-config
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

Apply string-trim to LaTeX font collections

This commit is contained in:
TEC 2024-03-09 00:20:47 +08:00
parent 2e8695eb20
commit e1de90f095
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
config.org
View File

@ -11531,6 +11531,7 @@ the cars in `org-latex-fontsets'."
(let* ((fontset-spec (org-latex-fontset-entry))
(fontset (alist-get (car fontset-spec) org-latex-fontsets)))
(if fontset
(string-trim
(concat
(mapconcat
(lambda (style)
@ -11542,7 +11543,7 @@ the cars in `org-latex-fontsets'."
(pcase (cdr fontset-spec)
(:serif "\\renewcommand{\\familydefault}{\\rmdefault}\n")
(:sans "\\renewcommand{\\familydefault}{\\sfdefault}\n")
(:mono "\\renewcommand{\\familydefault}{\\ttdefault}\n"))))
(:mono "\\renewcommand{\\familydefault}{\\ttdefault}\n")))))
(error "Font-set %s is not provided in org-latex-fontsets" (car fontset-spec)))))
#+end_src