From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 1/3] emacs: Add 'M-x guix-installed-{user/system}-packages'. Date: Sat, 13 Feb 2016 22:04:41 +0300 Message-ID: <1455390283-3585-2-git-send-email-alezost@gmail.com> References: <1455390283-3585-1-git-send-email-alezost@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:45436) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aUfV1-0006FI-81 for guix-devel@gnu.org; Sat, 13 Feb 2016 14:04:56 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aUfUy-0006d5-Th for guix-devel@gnu.org; Sat, 13 Feb 2016 14:04:55 -0500 Received: from mail-lb0-x244.google.com ([2a00:1450:4010:c04::244]:33759) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aUfUy-0006cz-L4 for guix-devel@gnu.org; Sat, 13 Feb 2016 14:04:52 -0500 Received: by mail-lb0-x244.google.com with SMTP id bc4so4889306lbc.0 for ; Sat, 13 Feb 2016 11:04:52 -0800 (PST) Received: from localhost.localdomain ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id rp10sm2583764lbb.13.2016.02.13.11.04.51 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Sat, 13 Feb 2016 11:04:51 -0800 (PST) In-Reply-To: <1455390283-3585-1-git-send-email-alezost@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * emacs/guix-ui-package.el (guix-installed-user-packages) (guix-installed-system-packages): New commands. * doc/emacs.texi (Emacs Commands): Document them. --- doc/emacs.texi | 8 +++++++- emacs/guix-ui-package.el | 13 +++++++++++++ 2 files changed, 20 insertions(+), 1 deletion(-) diff --git a/doc/emacs.texi b/doc/emacs.texi index dbe59f0..27f5365 100644 --- a/doc/emacs.texi +++ b/doc/emacs.texi @@ -150,7 +150,13 @@ Commands for displaying packages: Display all/newest available packages. @item M-x guix-installed-packages -Display all installed packages. +@itemx M-x guix-installed-user-packages +@itemx M-x guix-installed-system-packages +Display installed packages. As described above, @kbd{M-x +guix-installed-packages} uses an arbitrary profile that you can specify, +while the other commands display packages installed in 2 special +profiles: @file{~/.guix-profile} and @file{/run/current-system/profile} +(only on GuixSD). @item M-x guix-obsolete-packages Display obsolete packages (the packages that are installed in a profile diff --git a/emacs/guix-ui-package.el b/emacs/guix-ui-package.el index ff10a1e..78d2c40 100644 --- a/emacs/guix-ui-package.el +++ b/emacs/guix-ui-package.el @@ -982,6 +982,19 @@ Interactively with prefix, prompt for PROFILE." (guix-package-get-display profile 'installed)) ;;;###autoload +(defun guix-installed-user-packages () + "Display information about Guix packages installed in a user profile." + (interactive) + (guix-installed-packages guix-user-profile)) + +;;;###autoload +(defun guix-installed-system-packages () + "Display information about Guix packages installed in a system profile." + (interactive) + (guix-installed-packages + (guix-packages-profile guix-system-profile nil t))) + +;;;###autoload (defun guix-obsolete-packages (&optional profile) "Display information about obsolete Guix packages. If PROFILE is nil, use `guix-current-profile'. -- 2.6.3