[elpa] externals/engrave-faces 2628fd8936 1/5: fix: transform named colors into hex colors

[ELPA Syncer]

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

    fix: transform named colors into hex colors
---
 engrave-faces.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/engrave-faces.el b/engrave-faces.el
index 7dc8d46de7..afe2111d96 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -387,7 +387,13 @@ Unconditionally returns nil when FACES is default."
                        (when (or (engrave-faces--check-nondefault attr 
attr-val)
                                  (and (eq (car face-style) 'default)
                                       (not (memq attr '(:height 
:strike-through)))))
-                         (list attr attr-val))))
+                         (list attr
+                               (if (and (memq attr '(:foreground :background))
+                                        (not (string-prefix-p "#" attr-val)))
+                                   (apply 'format "#%02x%02x%02x"
+                                          (mapcar (lambda (c) (ash c -8))
+                                                  (color-values attr-val)))
+                                 attr-val)))))
                    engrave-faces-attributes-of-interest))))
    engrave-faces-preset-styles))