emacs-elpa-diffs
[Top][All Lists]
Advanced

[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
   '(



reply via email to

[Prev in Thread] Current Thread [Next in Thread]