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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/alect-themes 6f72dc2 191/269: Add 'alect-faces' customizat


From: ELPA Syncer
Subject: [nongnu] elpa/alect-themes 6f72dc2 191/269: Add 'alect-faces' customization group
Date: Thu, 21 Oct 2021 17:59:17 -0400 (EDT)

branch: elpa/alect-themes
commit 6f72dc2e097f8238a6ff1e0bb629d42b995fafb3
Author: Alex Kost <alezost@gmail.com>
Commit: Alex Kost <alezost@gmail.com>

    Add 'alect-faces' customization group
---
 alect-themes.el | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

diff --git a/alect-themes.el b/alect-themes.el
index fe4072f..22884df 100644
--- a/alect-themes.el
+++ b/alect-themes.el
@@ -98,87 +98,92 @@ values should be in matching order)."
   "Options for alect color themes."
   :group 'faces)
 
+(defgroup alect-faces nil
+  "Auxiliary faces used by alect color themes."
+  :group 'alect
+  :group 'faces)
+
 (defface alect-prompt
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for various prompts like `minibuffer-prompt' or `eshell-prompt'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-time
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for date/time faces like `org-date' or `erc-timestamp-face'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-author
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for author faces like `magit-log-author' or `change-log-name'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-key
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for key faces like `apropos-keybinding' or `magit-popup-key'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-selected-item
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for selected items like `org-date-selected' or
 `gnus-summary-selected'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-title
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for titles without levels like `dired-header' or
 `magit-section-title'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-button
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for buttons like `custom-button' or `w3m-form-button'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-button-pressed
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for buttons like `custom-button-pressed' or
 `w3m-form-button-pressed'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-button-mouse
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for buttons like `custom-button-mouse' or
 `w3m-form-button-mouse'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-tab-default
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for faces like `tabbar-default' or `w3m-tab-background'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-tab-unselected
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for tabs like `tabbar-unselected' or `w3m-tab-unselected'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-tab-selected
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for tabs like `tabbar-selected' or `w3m-tab-selected'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defface alect-tab-mouse
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
 Used for tabs like `tabbar-highlight' or `w3m-tab-mouse'."
-  :group 'alect)
+  :group 'alect-faces)
 
 (defmacro alect-define-color-level-face (n)
   "Define face for color level N.
@@ -186,7 +191,7 @@ Name of the defined face is `alect-color-level-N'."
   `(defface ,(intern (format "alect-color-level-%d" n))
      '((t nil))
      "Auxiliary face for inheriting by some other faces."
-     :group 'alect))
+     :group 'alect-faces))
 
 (defmacro alect-define-title-face (n)
   "Define title face for level N.
@@ -196,7 +201,7 @@ Name of the defined face is `alect-title-N'."
      ,(format "Auxiliary face for inheriting by some other faces.
 Used for titles with levels like `org-level-%s' or
 `markdown-header-face-%s'." n n)
-     :group 'alect))
+     :group 'alect-faces))
 
 (defmacro alect-define-faces (definer n)
   `(progn



reply via email to

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