mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
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.
This commit is contained in:
parent
6b6f7d6a0e
commit
6b3a1ce8d7
1 changed files with 5 additions and 2 deletions
|
@ -349,6 +349,10 @@ formatted with this string, an action button is inserted.")
|
||||||
'name (button-label btn))
|
'name (button-label btn))
|
||||||
'add)))
|
'add)))
|
||||||
|
|
||||||
|
(define-button-type 'guix-package-heading
|
||||||
|
:supertype 'guix-package-name
|
||||||
|
'face 'guix-package-info-heading)
|
||||||
|
|
||||||
(define-button-type 'guix-package-source
|
(define-button-type 'guix-package-source
|
||||||
:supertype 'guix
|
:supertype 'guix
|
||||||
'face 'guix-package-info-source
|
'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."
|
"Insert package ENTRY heading (name specification) at point."
|
||||||
(guix-insert-button
|
(guix-insert-button
|
||||||
(guix-package-entry->name-specification entry)
|
(guix-package-entry->name-specification entry)
|
||||||
'guix-package-name
|
'guix-package-heading))
|
||||||
'face 'guix-package-info-heading))
|
|
||||||
|
|
||||||
(defun guix-package-info-insert-systems (systems entry)
|
(defun guix-package-info-insert-systems (systems entry)
|
||||||
"Insert supported package SYSTEMS at point."
|
"Insert supported package SYSTEMS at point."
|
||||||
|
|
Loading…
Reference in a new issue