summaryrefslogtreecommitdiff
path: root/emacs/guix-ui-package.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-01-14 00:59:35 +0300
committerAlex Kost <alezost@gmail.com>2016-01-14 01:12:24 +0300
commit6b3a1ce8d7426dea57b29067e1190799d65f74ae (patch)
treed802798d5db6099cd1b61d63fec5fc9ec83387dc /emacs/guix-ui-package.el
parent6b6f7d6a0e809c09a0cae47bfe41f2d35f6cf75b (diff)
emacs: Fix heading face in "Package Info".
Reported by Ludovic Courtès <ludo@gnu.org> on #guix. This fixes a regression introduced in commit 7171d824. 'insert-text-button' procedure does not allow to override a button face, so a specialized button type should be used instead. * emacs/guix-ui-package.el (guix-package-heading): New button type. (guix-package-info-insert-heading): Use it.
Diffstat (limited to 'emacs/guix-ui-package.el')
-rw-r--r--emacs/guix-ui-package.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/emacs/guix-ui-package.el b/emacs/guix-ui-package.el
index 12bfaeef68..7cf1a7d07f 100644
--- a/emacs/guix-ui-package.el
+++ b/emacs/guix-ui-package.el
@@ -349,6 +349,10 @@ formatted with this string, an action button is inserted.")
'name (button-label btn))
'add)))
+(define-button-type 'guix-package-heading
+ :supertype 'guix-package-name
+ 'face 'guix-package-info-heading)
+
(define-button-type 'guix-package-source
:supertype 'guix
'face 'guix-package-info-source
@@ -362,8 +366,7 @@ formatted with this string, an action button is inserted.")
"Insert package ENTRY heading (name specification) at point."
(guix-insert-button
(guix-package-entry->name-specification entry)
- 'guix-package-name
- 'face 'guix-package-info-heading))
+ 'guix-package-heading))
(defun guix-package-info-insert-systems (systems entry)
"Insert supported package SYSTEMS at point."