From 3472bb20c5521f9dc85404a4dab9abef11c87a22 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Sun, 28 Sep 2014 09:32:41 +0400 Subject: emacs: Use package/output type variables where needed. * emacs/guix-list.el (guix-package-list-type, guix-output-list-describe-type): Move to... * emacs/guix-base.el: ... here. Rename 'guix-output-list-describe-type' to 'guix-package-info-type'. * emacs/guix-info.el (guix-generation-info-insert-number): Use 'guix-package-list-type'. * emacs/guix.el (guix-get-show-packages): Use 'guix-package-info-type'. --- emacs/guix-base.el | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) (limited to 'emacs/guix-base.el') diff --git a/emacs/guix-base.el b/emacs/guix-base.el index 98ce0bcb49..fb1cd971ee 100644 --- a/emacs/guix-base.el +++ b/emacs/guix-base.el @@ -342,7 +342,25 @@ following keywords are available: (put 'guix-define-buffer-type 'lisp-indent-function 'defun) -;;; Getting info about packages and generations +;;; Getting and displaying info about packages and generations + +(defcustom guix-package-list-type 'output + "Define how to display packages in a list buffer. +May be a symbol `package' or `output' (if `output', display each +output on a separate line; if `package', display each package on +a separate line)." + :type '(choice (const :tag "List of packages" package) + (const :tag "List of outputs" output)) + :group 'guix) + +(defcustom guix-package-info-type 'package + "Define how to display packages in an info buffer. +May be a symbol `package' or `output' (if `output', display each +output separately; if `package', display outputs inside a package +information)." + :type '(choice (const :tag "Display packages" package) + (const :tag "Display outputs" output)) + :group 'guix) (defun guix-get-entries (entry-type search-type search-vals &optional params) -- cgit v1.2.3