aboutsummaryrefslogtreecommitdiff
path: root/emacs/guix-base.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-09-14 23:32:53 +0300
committerAlex Kost <alezost@gmail.com>2015-09-15 15:19:30 +0300
commit46e17df661fa6c92d0863827f3affb9385b95395 (patch)
tree4d2cb78709092a5b14129afcea46639db5a28d81 /emacs/guix-base.el
parent50f5c46d0674eb68201c56bef17b2a41c7744404 (diff)
downloadguix-46e17df661fa6c92d0863827f3affb9385b95395.tar
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-base.el')
-rw-r--r--emacs/guix-base.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/emacs/guix-base.el b/emacs/guix-base.el
index 3bee910b05..a479f6dbf5 100644
--- a/emacs/guix-base.el
+++ b/emacs/guix-base.el
@@ -414,6 +414,7 @@ following keywords are available:
(buf-str (concat buf-type-str " buffer"))
(prefix (concat "guix-" entry-type-str "-" buf-type-str))
(group (intern prefix))
+ (faces-group (intern (concat prefix "-faces")))
(mode-map-str (concat prefix "-mode-map"))
(parent-mode (intern (concat "guix-" buf-type-str "-mode")))
(mode (intern (concat prefix "-mode")))
@@ -442,6 +443,10 @@ following keywords are available:
:prefix ,(concat prefix "-")
:group ',(intern (concat "guix-" buf-type-str)))
+ (defgroup ,faces-group nil
+ ,(concat "Faces for " buf-type-str " buffer with " entry-str ".")
+ :group ',(intern (concat "guix-" buf-type-str "-faces")))
+
(defcustom ,buf-name-var ,buf-name-val
,(concat "Default name of the " buf-str " for displaying " entry-str ".")
:type 'string
@@ -789,7 +794,7 @@ GENERATION is a generation number of `guix-profile' profile."
(defface guix-operation-option-key
'((t :inherit font-lock-warning-face))
"Face used for the keys of operation options."
- :group 'guix)
+ :group 'guix-faces)
(defcustom guix-operation-confirm t
"If nil, do not prompt to confirm an operation."