03/07: emacs: Add "edit" command to a list of licenses.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 557361e79f9c78798084a1c3ceb177d18c65f6fc
Author: Alex Kost <address@hidden>
Date:   Sat Apr 9 13:26:33 2016 +0300

    emacs: Add "edit" command to a list of licenses.
    
    * emacs/guix-ui-license.el (guix-license-list-edit): New command.
    (guix-license-list-mode-map): Bind it to "e" key.
---
 emacs/guix-ui-license.el |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/emacs/guix-ui-license.el b/emacs/guix-ui-license.el
index 772a168..cf1b5cd 100644
--- a/emacs/guix-ui-license.el
+++ b/emacs/guix-ui-license.el
@@ -116,6 +116,7 @@ SEARCH-TYPE may be one of the following symbols: `all', 
`id', `name'."
   :sort-key '(name))
 
 (let ((map guix-license-list-mode-map))
+  (define-key map (kbd "e")   'guix-license-list-edit)
   (define-key map (kbd "RET") 'guix-license-list-show-packages))
 
 (defun guix-license-list-describe (ids)
@@ -129,6 +130,12 @@ SEARCH-TYPE may be one of the following symbols: `all', 
`id', `name'."
   (interactive)
   (guix-packages-by-license (guix-list-current-id)))
 
+(defun guix-license-list-edit (&optional directory)
+  "Go to the location of the current license definition.
+See `guix-license-file' for the meaning of DIRECTORY."
+  (interactive (list (guix-read-directory)))
+  (guix-find-license-definition (guix-list-current-id) directory))
+
 
 ;;; Interactive commands