diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-09-22 21:50:11 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-09-23 00:33:50 +0200 |
commit | bd9bde1cba7190ed8b87aefbd09b1e25c5acbf31 (patch) | |
tree | 5bce6c29a30f57bfab37a712ced30e2d2a8580a9 /guix/scripts | |
parent | a7a4e6a4f719da8d0b26d9a60ff8ed42691d263f (diff) | |
download | gnu-guix-bd9bde1cba7190ed8b87aefbd09b1e25c5acbf31.tar gnu-guix-bd9bde1cba7190ed8b87aefbd09b1e25c5acbf31.tar.gz |
guix package: Show most recently installed packages last.
Suggested by Andreas Enge <andreas@enge.fr>.
* guix/scripts/package.scm (guix-package)[list-generations,
list-installed]: Reverse the result of 'manifest-packages'.
* doc/guix.texi (Invoking guix package): Document the order of packages
for '--list-generations' and '--list-installed'.
Diffstat (limited to 'guix/scripts')
-rw-r--r-- | guix/scripts/package.scm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index c0cedcd4a8..1d00e39540 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -965,9 +965,12 @@ more information.~%")) ((name version output location _) (format #t " ~a\t~a\t~a\t~a~%" name version output location))) - (manifest-packages - (profile-manifest - (format #f "~a-~a-link" profile number)))) + + ;; Show most recently installed packages last. + (reverse + (manifest-packages + (profile-manifest + (format #f "~a-~a-link" profile number))))) (newline))) (cond ((not (file-exists? profile)) ; XXX: race condition @@ -994,7 +997,9 @@ more information.~%")) (regexp-exec regexp name)) (format #t "~a\t~a\t~a\t~a~%" name (or version "?") output path)))) - installed) + + ;; Show most recently installed packages last. + (reverse installed)) #t)) (('list-available regexp) |