branch: externals/engrave-faces
commit 1f68496edd26c7c84ce18cf5adf46aa452af6f2b
Author: TEC <[email protected]>
Commit: TEC <[email protected]>
LaTeX: use named colour for fg when possible
---
engrave-faces-latex.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/engrave-faces-latex.el b/engrave-faces-latex.el
index 5166309..29c208b 100644
--- a/engrave-faces-latex.el
+++ b/engrave-faces-latex.el
@@ -78,11 +78,10 @@ See `engrave-faces-preset-styles' and
`engrave-faces-latex-output-style'."
(defun engrave-faces-latex-post-processing ()
(goto-char (point-min))
- (when (eq engrave-faces-latex-output-style 'preset)
- (insert "\\color[HTML]{"
- (substring (plist-get (cdr (assoc 'default
engrave-faces-preset-styles))
- :foreground) 1)
- "}"))
+ (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) "}"))
(dolist (find-sub engrave-faces-latex-char-replacements)
(goto-char (point-min))
(while (search-forward (car find-sub) nil t)
