[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/engrave-faces 0ff0251187 3/8: Add ability to log face p
From: |
ELPA Syncer |
Subject: |
[elpa] externals/engrave-faces 0ff0251187 3/8: Add ability to log face preset misses |
Date: |
Sat, 7 May 2022 13:57:31 -0400 (EDT) |
branch: externals/engrave-faces
commit 0ff02511878d00e34f84d6e77a18e82877b01997
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@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)))))))
- [elpa] externals/engrave-faces updated (9e41d5f9a8 -> 248196fb4d), ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 0ff0251187 3/8: Add ability to log face preset misses,
ELPA Syncer <=
- [elpa] externals/engrave-faces 4a0d16715a 4/8: Themes support, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 9ef6c83553 5/8: Variable declaration rearrangement, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 571d60774c 6/8: Reflow a docstring, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 6fa12694e6 7/8: Rename default theme shorts and slugs, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 85ddcdb516 1/8: Refactor ef-define-backend and ef-faces-file, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 1b50efc320 2/8: LaTeX: improve background boxes by adding a strut, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 248196fb4d 8/8: Fix typo in readme, ELPA Syncer, 2022/05/07