branch: externals/engrave-faces
commit 0ff02511878d00e34f84d6e77a18e82877b01997
Author: TEC <t...@tecosaur.com>
Commit: TEC <t...@tecosaur.com>
Add ability to log face preset misses
---
engrave-faces.el | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/engrave-faces.el b/engrave-faces.el
index 817c924c9f..903d9e4078 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -200,6 +200,14 @@ I.e. ([facea :inherit faceb] facec) results in (facea
faceb facec)"
(engrave-faces-explicit-inheritance inherit))))))
(if (listp faces) faces (list faces)))))
+(defvar engrave-faces-preset-missed-faces nil
+ "Faces not found in `engrave-faces-current-preset-style'.")
+
+(defcustom engrave-faces-log-preset-missed-faces nil
+ "Whether to log faces not found in `engrave-faces-current-preset-style'."
+ :type 'boolean
+ :group 'engrave-faces)
+
(defun engrave-faces-attribute-values (faces attribute)
"Fetch all specified instances of ATTRIBUTE for FACES, ignoring inheritence.
To consider inheritence, use `engrave-faces-explicit-inheritance' first."
@@ -209,7 +217,10 @@ To consider inheritence, use
`engrave-faces-explicit-inheritance' first."
(if-let ((style (cdr (assoc face
engrave-faces-preset-styles))))
(plist-get style attribute)
(cond
- ((symbolp face) (face-attribute face attribute nil
nil))
+ ((symbolp face)
+ (when engrave-faces-log-preset-missed-faces
+ (push face engrave-faces-preset-missed-faces))
+ (face-attribute face attribute nil nil))
((listp face) (plist-get face attribute)))))
(delq 'default (if (listp faces) faces (list faces)))))))
