09/09: emacs: Display license info on button press in Package Info buffer.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit a7c61781df789183665dc7570e088ec11678a7db
Author: Alex Kost <address@hidden>
Date:   Thu Apr 7 21:36:32 2016 +0300

    emacs: Display license info on button press in Package Info buffer.
    
    * emacs/guix-ui-package.el (guix-package-license): Adjust button action
      to display license info instead of browsing license URL.
---
 emacs/guix-ui-package.el |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/emacs/guix-ui-package.el b/emacs/guix-ui-package.el
index 7e20b32..38f0c08 100644
--- a/emacs/guix-ui-package.el
+++ b/emacs/guix-ui-package.el
@@ -346,9 +346,13 @@ formatted with this string, an action button is inserted.")
 (define-button-type 'guix-package-license
   :supertype 'guix
   'face 'guix-package-info-license
-  'help-echo "Browse license URL"
+  'help-echo "Display license info"
   'action (lambda (btn)
-            (guix-browse-license-url (button-label btn))))
+            (require 'guix-ui-license)
+            (guix-buffer-get-display-entries
+             'info 'license
+             (list 'name (button-label btn))
+             'add)))
 
 (define-button-type 'guix-package-name
   :supertype 'guix