~ruther/guix-local: emacs: Fix heading face in "Package Info".

6b3a1ce8d7426dea57b29067e1190799d65f74ae — Alex Kost 10 years ago 6b6f7d6

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.

patch browse .tar.gz

1 files changed, 5 insertions(+), 2 deletions(-)

M emacs/guix-ui-package.el

M emacs/guix-ui-package.el => emacs/guix-ui-package.el +5 -2

@@ 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."