From e1de90f09502203b2b0823c462d07c0d7012f5b2 Mon Sep 17 00:00:00 2001 From: TEC Date: Sat, 9 Mar 2024 00:20:47 +0800 Subject: [PATCH] Apply string-trim to LaTeX font collections --- config.org | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/config.org b/config.org index 3e3d7a4..b1fd351 100644 --- a/config.org +++ b/config.org @@ -11531,18 +11531,19 @@ the cars in `org-latex-fontsets'." (let* ((fontset-spec (org-latex-fontset-entry)) (fontset (alist-get (car fontset-spec) org-latex-fontsets))) (if fontset - (concat - (mapconcat - (lambda (style) - (when (plist-get fontset style) - (concat (plist-get fontset style) "\n"))) - desired-styles - "") - (when (memq (cdr fontset-spec) desired-styles) - (pcase (cdr fontset-spec) - (:serif "\\renewcommand{\\familydefault}{\\rmdefault}\n") - (:sans "\\renewcommand{\\familydefault}{\\sfdefault}\n") - (:mono "\\renewcommand{\\familydefault}{\\ttdefault}\n")))) + (string-trim + (concat + (mapconcat + (lambda (style) + (when (plist-get fontset style) + (concat (plist-get fontset style) "\n"))) + desired-styles + "") + (when (memq (cdr fontset-spec) desired-styles) + (pcase (cdr fontset-spec) + (:serif "\\renewcommand{\\familydefault}{\\rmdefault}\n") + (:sans "\\renewcommand{\\familydefault}{\\sfdefault}\n") + (:mono "\\renewcommand{\\familydefault}{\\ttdefault}\n"))))) (error "Font-set %s is not provided in org-latex-fontsets" (car fontset-spec))))) #+end_src