tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-07 05:30:38 +02:00
Code Activity

pull: '-l' displays channel news.

Browse Source 
* 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
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
guix/scripts/pull.scm
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)
(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 @@ display long package lists that would fill the user's screen."
((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))))))