summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-02-11 11:21:56 +0300
committerAlex Kost <alezost@gmail.com>2016-02-22 22:17:16 +0300
commitcfb1c62aa98965daacb216713be650057188e65e (patch)
tree4b472de672cb3a575a45d502e8a8bef4ab3a9cb6
parent5879f0d649d5112830e8e712d8245ab8d2db5133 (diff)
downloadpatches-cfb1c62aa98965daacb216713be650057188e65e.tar
patches-cfb1c62aa98965daacb216713be650057188e65e.tar.gz
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.
-rw-r--r--doc/emacs.texi8
-rw-r--r--emacs/guix-ui-package.el13
2 files changed, 20 insertions, 1 deletions
diff --git a/doc/emacs.texi b/doc/emacs.texi
index dbe59f0243..27f5365caa 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 ff10a1e75c..78d2c40848 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'.