diff options
| author | Alex Kost <alezost@gmail.com> | 2015-09-14 23:32:53 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-09-15 15:19:30 +0300 |
| commit | 46e17df661fa6c92d0863827f3affb9385b95395 (patch) | |
| tree | 4d2cb78709092a5b14129afcea46639db5a28d81 /emacs/guix-list.el | |
| parent | 50f5c46d0674eb68201c56bef17b2a41c7744404 (diff) | |
| download | guix-46e17df661fa6c92d0863827f3affb9385b95395.tar.gz | |
emacs: Add customization groups for faces.
* emacs/guix.el (guix-faces): New custom group. * emacs/guix-base.el (guix-operation-option-key): Use it. (guix-define-buffer-type): Generate faces group. * emacs/guix-info.el: Adjust faces to use new groups. (guix-info-faces): New custom group. * emacs/guix-list.el: Likewise (guix-list-faces): New custom group.
Diffstat (limited to 'emacs/guix-list.el')
| -rw-r--r-- | emacs/guix-list.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/emacs/guix-list.el b/emacs/guix-list.el index 9796464dbf..87d214bb4d 100644 --- a/emacs/guix-list.el +++ b/emacs/guix-list.el @@ -35,10 +35,15 @@ :prefix "guix-list-" :group 'guix) +(defgroup guix-list-faces nil + "Faces for list buffers." + :group 'guix-list + :group 'guix-faces) + (defface guix-list-file-path '((t :inherit guix-info-file-path)) "Face used for file paths." - :group 'guix-list) + :group 'guix-list-faces) (defcustom guix-list-describe-warning-count 10 "The maximum number of entries for describing without a warning. @@ -488,12 +493,12 @@ With prefix (if ARG is non-nil), describe entries marked with any mark." (defface guix-package-list-installed '((t :inherit guix-package-info-installed-outputs)) "Face used if there are installed outputs for the current package." - :group 'guix-package-list) + :group 'guix-package-list-faces) (defface guix-package-list-obsolete '((t :inherit guix-package-info-obsolete)) "Face used if a package is obsolete." - :group 'guix-package-list) + :group 'guix-package-list-faces) (defcustom guix-package-list-generation-marking-enabled nil "If non-nil, allow putting marks in a list with 'generation packages'. |