[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ef-themes 9941b5e1f8 1/5: Simplify how "mark" faces are
From: |
ELPA Syncer |
Subject: |
[elpa] externals/ef-themes 9941b5e1f8 1/5: Simplify how "mark" faces are declared |
Date: |
Wed, 19 Oct 2022 23:57:35 -0400 (EDT) |
branch: externals/ef-themes
commit 9941b5e1f8c285315729dfac41de19049dbb4be8
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Simplify how "mark" faces are declared
These were originally introduced in commit f4e91d5. They allow us to
ensure consistency between different face groups but also to cover
faces that are only available as variables (custom-theme-set-variables).
---
ef-themes.el | 21 +++++++--------------
1 file changed, 7 insertions(+), 14 deletions(-)
diff --git a/ef-themes.el b/ef-themes.el
index 1ec8042669..547104ba42 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -554,20 +554,13 @@ Helper function for `ef-themes-preview-colors'."
:package-version '(ef-themes . "0.4.0")
:group 'ef-themes-faces)
-(defface ef-themes-mark-delete nil
- "Face for deletion marks, such as in Dired."
- :package-version '(ef-themes . "0.9.0")
- :group 'ef-themes-faces)
-
-(defface ef-themes-mark-select nil
- "Face for selection marks, such as in Dired."
- :package-version '(ef-themes . "0.9.0")
- :group 'ef-themes-faces)
-
-(defface ef-themes-mark-other nil
- "Face for other types of marks."
- :package-version '(ef-themes . "0.9.0")
- :group 'ef-themes-faces)
+;; This produces `ef-themes-mark-delete' and the like.
+(dolist (scope '(delete select other))
+ (custom-declare-face
+ (intern (format "ef-themes-mark-%s" scope))
+ nil (format "Face for %s marks (e.g. `dired', `trashed')." scope)
+ :package-version '(ef-themes . "0.9.0")
+ :group 'ef-themes-faces))
(defconst ef-themes-faces
'(