[elpa] externals/engrave-faces e22391c 35/36: latex: refactor initial \color string insertion

[ELPA Syncer]

branch: externals/engrave-faces
commit e22391c36538b820461411eefe5b6955f730997c
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>

    latex: refactor initial \color string insertion
---
 engrave-faces-latex.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/engrave-faces-latex.el b/engrave-faces-latex.el
index 0e116a7..4e69cca 100644
--- a/engrave-faces-latex.el
+++ b/engrave-faces-latex.el
@@ -81,9 +81,10 @@ See `engrave-faces-preset-styles' and 
`engrave-faces-latex-output-style'."
 (defun engrave-faces-latex-post-processing ()
   (goto-char (point-min))
   (insert
-   (if (eq engrave-faces-latex-output-style 'preset)
-       (format "\\color{EF%s}" (plist-get (cdr (assoc 'default 
engrave-faces-preset-styles)) :slug))
-     "\\color[HTML]{" (substring (plist-get (cdr (assoc 'default 
engrave-faces-preset-styles)) :foreground) 1) "}"))
+   (let ((style (cdr (assoc 'default engrave-faces-preset-styles))))
+     (if (eq engrave-faces-latex-output-style 'preset)
+       (format "\\color{EF%s}" (plist-get style :slug))
+       (concat "\\color[HTML]{" (substring (plist-get style :foreground) 1) 
"}"))))
   (dolist (find-sub engrave-faces-latex-char-replacements)
     (goto-char (point-min))
     (while (search-forward (car find-sub) nil t)