aboutsummaryrefslogtreecommitdiff
path: root/emacs/guix-ui-package.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-03-21 10:58:29 +0300
committerAlex Kost <alezost@gmail.com>2016-03-23 11:24:38 +0300
commitc292a6f30410eb037120b056acb0a0a331a33283 (patch)
treea245223d29ca6a85e1afc4b4d5316c61ee36409f /emacs/guix-ui-package.el
parent4c68c538048803e47103d61a9dd855a0dc1187e2 (diff)
downloadguix-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.el11
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."