nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

emacs: Use space to separate package name and version in heading. 

Reported by Ludovic Courtès <ludo@gnu.org>.

* emacs/guix-ui-package.el (guix-package-name): Check 'spec' property.
(guix-package-info-insert-heading): Use "name version" for button label,
write name specification to 'spec' property.
This commit is contained in:
Alex Kost 2016-03-21 10:58:29 +03:00
parent 4c68c53804
commit c292a6f304
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
emacs/guix-ui-package.el
View File

@ -357,7 +357,8 @@ formatted with this string, an action button is inserted.")
(guix-buffer-get-display-entries-current (guix-buffer-get-display-entries-current
'info guix-package-info-type 'info guix-package-info-type
(list (guix-ui-current-profile) (list (guix-ui-current-profile)
'name (button-label btn)) 'name (or (button-get btn 'spec)
(button-label btn)))
'add))) 'add)))
(define-button-type 'guix-package-heading (define-button-type 'guix-package-heading
@ -374,10 +375,12 @@ formatted with this string, an action button is inserted.")
(message "Yes, this is the source URL. What did you expect?"))) (message "Yes, this is the source URL. What did you expect?")))
(defun guix-package-info-insert-heading (entry) (defun guix-package-info-insert-heading (entry)
"Insert package ENTRY heading (name specification) at point." "Insert package ENTRY heading (name and version) at point."
(guix-insert-button (guix-insert-button
(guix-package-entry->name-specification entry) (concat (guix-entry-value entry 'name) " "
'guix-package-heading)) (guix-entry-value entry 'version))
'guix-package-heading
'spec (guix-package-entry->name-specification entry)))
(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."