[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/engrave-faces d84964ec8a 5/5: LaTeX: set standalone pag
From: |
ELPA Syncer |
Subject: |
[elpa] externals/engrave-faces d84964ec8a 5/5: LaTeX: set standalone page color/background |
Date: |
Tue, 10 May 2022 12:57:33 -0400 (EDT) |
branch: externals/engrave-faces
commit d84964ec8a9076ce0bf47d8397c8a23e89d94b87
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>
LaTeX: set standalone page color/background
---
engrave-faces-latex.el | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/engrave-faces-latex.el b/engrave-faces-latex.el
index 5e4dacf399..d2465e8e45 100644
--- a/engrave-faces-latex.el
+++ b/engrave-faces-latex.el
@@ -161,11 +161,18 @@ Trailing curly parens are sometimes put on the next line,
and need to be moved b
\\pagestyle{empty}\n\n"
(engrave-faces-latex-gen-preamble)
"
-\\begin{document}
-\\setlength{\\fboxsep}{0pt}
+\\begin{document}\n"
+ (let ((default-face
+ (alist-get 'default engrave-faces-current-preset-style)))
+ (concat
+ (when (plist-get default-face :background)
+ (format "\\pagecolor{Ef%s}\n" (plist-get default-face :slug)))
+ (when (plist-get default-face :foreground)
+ (format "\\color{EF%s}\n" (plist-get default-face :slug)))))
+ "\\setlength{\\fboxsep}{0pt}
\\begin{Verbatim}[breaklines=true, commandchars=\\\\\\{\\}"
(if engrave-faces-latex-mathescape
- ", mathescape" "")
+ ", mathescape" "")
"]\n")
(goto-char (point-max))
(insert "\\end{Verbatim}