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))
 | 
			
		||||
             '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."
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue