[elpa] externals/engrave-faces d84964ec8a 5/5: LaTeX: set standalone page color/background

[ELPA Syncer]

branch: externals/engrave-faces
commit d84964ec8a9076ce0bf47d8397c8a23e89d94b87
Author: TEC <t...@tecosaur.com>
Commit: TEC <t...@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}