pull: '-l' displays channel news.

* guix/scripts/pull.scm (display-channel-news): Make 'previous' a
parameter.
(process-query)[list-generations]: Call 'display-channel-news'.
master
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
1 changed files with 8 additions and 6 deletions

View File

@ -272,12 +272,12 @@ and NEW are <channel> records with a proper 'commit' field."
(for-each (cut display-news-entry <> language port) entries) (for-each (cut display-news-entry <> language port) entries)
(newline port))))))) (newline port)))))))
(define (display-channel-news profile) (define* (display-channel-news profile
"Display news about the channels of PROFILE " #:optional
(define previous (previous
(and=> (relative-generation profile -1) (and=> (relative-generation profile -1)
(cut generation-file-name profile <>))) (cut generation-file-name profile <>))))
"Display news about the channels of PROFILE compared to PREVIOUS."
(when previous (when previous
(let ((old-channels (profile-channels previous)) (let ((old-channels (profile-channels previous))
(new-channels (profile-channels profile))) (new-channels (profile-channels profile)))
@ -614,6 +614,8 @@ display long package lists that would fill the user's screen."
((first second rest ...) ((first second rest ...)
(display-profile-content-diff profile (display-profile-content-diff profile
first second) first second)
(display-channel-news (generation-file-name profile second)
(generation-file-name profile first))
(loop (cons second rest))) (loop (cons second rest)))
((_) #t) ((_) #t)
(() #t)))))) (() #t))))))