From 6248e3263523c81ec1427f41d56faac3384a35d4 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Fri, 19 Jun 2015 21:57:04 +0300 Subject: emacs: Add "edit" command to a list of packages. * emacs/guix-base.el (guix-edit-package): New function. * emacs/guix-list.el (guix-list-edit-package): New command. Bind it to "e" key. * emacs/guix-main.scm (package-location-string): New procedure. * doc/emacs.texi (Emacs List buffer): Document "e" key binding. * doc/guix.texi (Invoking guix edit): Mention "package list" buffer. --- emacs/guix-list.el | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'emacs/guix-list.el') diff --git a/emacs/guix-list.el b/emacs/guix-list.el index 130b240c1e..26dfeacb8c 100644 --- a/emacs/guix-list.el +++ b/emacs/guix-list.el @@ -467,6 +467,11 @@ With prefix (if ARG is non-nil), describe entries marked with any mark." (list (guix-list-current-id))))) (guix-list-describe-maybe guix-entry-type ids))) +(defun guix-list-edit-package () + "Go to the location of the current package." + (interactive) + (guix-edit-package (guix-list-current-package-id))) + ;;; Displaying packages @@ -505,6 +510,7 @@ likely)." :group 'guix-package-list) (let ((map guix-package-list-mode-map)) + (define-key map (kbd "e") 'guix-list-edit-package) (define-key map (kbd "x") 'guix-package-list-execute) (define-key map (kbd "i") 'guix-package-list-mark-install) (define-key map (kbd "d") 'guix-package-list-mark-delete) @@ -662,6 +668,7 @@ The specification is suitable for `guix-process-package-actions'." (let ((map guix-output-list-mode-map)) (define-key map (kbd "RET") 'guix-output-list-describe) + (define-key map (kbd "e") 'guix-list-edit-package) (define-key map (kbd "x") 'guix-output-list-execute) (define-key map (kbd "i") 'guix-output-list-mark-install) (define-key map (kbd "d") 'guix-output-list-mark-delete) -- cgit v1.2.3