diff options
| author | Alex Kost <alezost@gmail.com> | 2016-03-21 10:58:29 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2016-03-23 11:24:38 +0300 |
| commit | c292a6f30410eb037120b056acb0a0a331a33283 (patch) | |
| tree | a245223d29ca6a85e1afc4b4d5316c61ee36409f /emacs/guix-ui-package.el | |
| parent | 4c68c538048803e47103d61a9dd855a0dc1187e2 (diff) | |
| download | guix-c292a6f30410eb037120b056acb0a0a331a33283.tar guix-c292a6f30410eb037120b056acb0a0a331a33283.tar.gz | |
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.
Diffstat (limited to 'emacs/guix-ui-package.el')
| -rw-r--r-- | emacs/guix-ui-package.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/emacs/guix-ui-package.el b/emacs/guix-ui-package.el index 9d81c6126e..df5f8d12d1 100644 --- a/emacs/guix-ui-package.el +++ b/emacs/guix-ui-package.el @@ -357,7 +357,8 @@ formatted with this string, an action button is inserted.") (guix-buffer-get-display-entries-current 'info guix-package-info-type (list (guix-ui-current-profile) - 'name (button-label btn)) + 'name (or (button-get btn 'spec) + (button-label btn))) 'add))) (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?"))) (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-package-entry->name-specification entry) - 'guix-package-heading)) + (concat (guix-entry-value entry 'name) " " + (guix-entry-value entry 'version)) + 'guix-package-heading + 'spec (guix-package-entry->name-specification entry))) (defun guix-package-info-insert-systems (systems entry) "Insert supported package SYSTEMS at point." |