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'.
This commit is contained in:
parent
a7a4e6a4f7
commit
bd9bde1cba
|
@ -608,7 +608,9 @@ suggest setting these variables to @code{@var{profile}/include} and
|
|||
|
||||
@item --list-generations[=@var{pattern}]
|
||||
@itemx -l [@var{pattern}]
|
||||
Return a list of generations along with their creation dates.
|
||||
Return a list of generations along with their creation dates; for each
|
||||
generation, show the installed packages, with the most recently
|
||||
installed packages shown last.
|
||||
|
||||
For each installed package, print the following items, separated by
|
||||
tabs: the name of a package, its version string, the part of the package
|
||||
|
@ -692,9 +694,9 @@ version: 7.2alpha6
|
|||
|
||||
@item --list-installed[=@var{regexp}]
|
||||
@itemx -I [@var{regexp}]
|
||||
List currently installed packages in the specified profile. When
|
||||
@var{regexp} is specified, list only installed packages whose name
|
||||
matches @var{regexp}.
|
||||
List the currently installed packages in the specified profile, with the
|
||||
most recently installed packages shown last. When @var{regexp} is
|
||||
specified, list only installed packages whose name matches @var{regexp}.
|
||||
|
||||
For each installed package, print the following items, separated by
|
||||
tabs: the package name, its version string, the part of the package that
|
||||
|
|
|
@ -965,9 +965,12 @@ more information.~%"))
|
|||
((name version output location _)
|
||||
(format #t " ~a\t~a\t~a\t~a~%"
|
||||
name version output location)))
|
||||
|
||||
;; Show most recently installed packages last.
|
||||
(reverse
|
||||
(manifest-packages
|
||||
(profile-manifest
|
||||
(format #f "~a-~a-link" profile number))))
|
||||
(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)
|
||||
|
|
Loading…
Reference in New Issue