~ruther/guix-local: emacs: Display license info on button press in Package Info buffer.

a7c61781df789183665dc7570e088ec11678a7db — Alex Kost 10 years ago 690c055

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.

patch browse .tar.gz

1 files changed, 6 insertions(+), 2 deletions(-)

M emacs/guix-ui-package.el

M emacs/guix-ui-package.el => emacs/guix-ui-package.el +6 -2

@@ 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