01/02: emacs: Simplify defining package ID in a list buffer.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 6a8c9545cb9702236586d905b9ebbf2790fcdf91
Author: Alex Kost <address@hidden>
Date:   Fri Jun 19 21:47:31 2015 +0300

    emacs: Simplify defining package ID in a list buffer.
    
    * emacs/guix-list.el: Always retrieve 'package-id' parameter for a list
      of outputs.
      (guix-list-current-package-id): New function.
---
 emacs/guix-list.el |   11 ++++++++++-
 1 files changed, 10 insertions(+), 1 deletions(-)

diff --git a/emacs/guix-list.el b/emacs/guix-list.el
index 279de81..130b240 100644
--- a/emacs/guix-list.el
+++ b/emacs/guix-list.el
@@ -215,6 +215,14 @@ VAL may be nil."
   "Return alist of the current entry info."
   (guix-get-entry-by-id (guix-list-current-id) guix-entries))
 
+(defun guix-list-current-package-id ()
+  "Return ID of the current package."
+  (cl-ecase major-mode
+    (guix-package-list-mode
+     (guix-list-current-id))
+    (guix-output-list-mode
+     (guix-get-key-val (guix-list-current-entry) 'package-id))))
+
 (defun guix-list-for-each-line (fun &rest args)
   "Call FUN with ARGS for each entry line."
   (or (derived-mode-p 'guix-list-mode)
@@ -643,7 +651,8 @@ The specification is suitable for 
`guix-process-package-actions'."
 ;;; Displaying outputs
 
 (guix-define-buffer-type list output
-  :buffer-name "*Guix Package List*")
+  :buffer-name "*Guix Package List*"
+  :required (package-id))
 
 (guix-list-define-entry-type output
   :sort-key name