[elpa] externals/engrave-faces 0efa22cd62 6/6: LaTeX: Don't draw colorbox for default background

[ELPA Syncer]

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

    LaTeX: Don't draw colorbox for default background
---
 engrave-faces-latex.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/engrave-faces-latex.el b/engrave-faces-latex.el
index 48dbbdbec8..093ded07cf 100644
--- a/engrave-faces-latex.el
+++ b/engrave-faces-latex.el
@@ -55,11 +55,15 @@ See `engrave-faces-preset-styles' and 
`engrave-faces-latex-output-style'."
     (concat (when fg (format "\\definecolor{EF%s}{HTML}{%s}\n" short 
(substring fg 1)))
             (when bg (format "\\definecolor{Ef%s}{HTML}{%s}\n" short 
(substring bg 1)))
             "\\newcommand{\\EF" short "}[1]{"
-            (when bg (concat "\\colorbox{Ef" short "}{\\efstrut{}"))
+            (when (and bg (not (eq face 'default)))
+              (concat "\\colorbox{Ef" short "}{\\efstrut{}"))
             (when fg (concat "\\textcolor{EF" short "}{"))
             (when st "\\sout{") (when bl "\\textbf{") (when it "\\textit{")
             "#1}"
-            (when bg "}") (when fg "}") (when st "}") (when bl "}") (when it 
"}")
+            (make-string
+             (cl-count-if #'identity
+                          (list (and bg (not (eq face 'default))) fg st bl it))
+             ?})
             " % " (symbol-name face))))
 
 (defun engrave-faces-latex-face-apply (faces content)