summaryrefslogtreecommitdiff
path: root/emacs/guix-base.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2014-09-28 09:32:41 +0400
committerAlex Kost <alezost@gmail.com>2014-09-28 22:46:15 +0400
commit3472bb20c5521f9dc85404a4dab9abef11c87a22 (patch)
treef8f69b5333a9a3bc67b4de8c149c4f1e4713bb77 /emacs/guix-base.el
parent2e269860c48696ca6fd0a76315a85ca3fd1ee3bc (diff)
downloadpatches-3472bb20c5521f9dc85404a4dab9abef11c87a22.tar
patches-3472bb20c5521f9dc85404a4dab9abef11c87a22.tar.gz
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'.
Diffstat (limited to 'emacs/guix-base.el')
-rw-r--r--emacs/guix-base.el20
1 files changed, 19 insertions, 1 deletions
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)