me/guix
Archived
1
0
Fork 0
Code Activity

emacs: Fix heading face in "Package Info".

Browse source 
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:
Alex Kost 2016-01-14 00:59:35 +03:00
parent 6b6f7d6a0e
commit 6b3a1ce8d7
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
emacs/guix-ui-package.el
View file

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