01/03: emacs: Add 'M-x guix-installed-{user/system}-packages'.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit cfb1c62aa98965daacb216713be650057188e65e
Author: Alex Kost <address@hidden>
Date:   Thu Feb 11 11:21:56 2016 +0300

    emacs: Add 'M-x guix-installed-{user/system}-packages'.
    
    * 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 deletions(-)

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.
address@hidden M-x guix-installed-user-packages
address@hidden 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'.