pull: '-l' displays channel news.

* guix/scripts/pull.scm (display-channel-news): Make 'previous' a
parameter.
(process-query)[list-generations]: Call 'display-channel-news'.
This commit is contained in:
Ludovic Courtès 2019-09-15 23:55:19 +02:00
parent 7faffdc2d5
commit 192ee02aeb
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -272,12 +272,12 @@ (define* (display-channel-specific-news new old
(for-each (cut display-news-entry <> language port) entries)
(newline port)))))))
(define (display-channel-news profile)
"Display news about the channels of PROFILE "
(define previous
(and=> (relative-generation profile -1)
(cut generation-file-name profile <>)))
(define* (display-channel-news profile
#:optional
(previous
(and=> (relative-generation profile -1)
(cut generation-file-name profile <>))))
"Display news about the channels of PROFILE compared to PREVIOUS."
(when previous
(let ((old-channels (profile-channels previous))
(new-channels (profile-channels profile)))
@ -614,6 +614,8 @@ (define (list-generations profile numbers)
((first second rest ...)
(display-profile-content-diff profile
first second)
(display-channel-news (generation-file-name profile second)
(generation-file-name profile first))
(loop (cons second rest)))
((_) #t)
(() #t))))))