[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#37413] [PATCH v2 08/11] pull: '-l' displays channel news.
From: |
Ludovic Courtès |
Subject: |
[bug#37413] [PATCH v2 08/11] pull: '-l' displays channel news. |
Date: |
Sat, 21 Sep 2019 23:12:25 +0200 |
* guix/scripts/pull.scm (display-channel-news): Make 'previous' a
parameter.
(process-query)[list-generations]: Call 'display-channel-news'.
---
guix/scripts/pull.scm | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index 85291c3745..4a4756dc6e 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -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 new 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))))))
--
2.23.0
[bug#37413] [PATCH v2 00/11] Channel news distribution mechanism, Ludovic Courtès, 2019/09/21
- [bug#37413] [PATCH v2 01/11] pull: '--news' shows the list of channels added or removed., Ludovic Courtès, 2019/09/21
- [bug#37413] [PATCH v2 02/11] git: 'update-cached-checkout' avoids network access when unnecessary., Ludovic Courtès, 2019/09/21
- [bug#37413] [PATCH v2 07/11] pull: Display channel news., Ludovic Courtès, 2019/09/21
- [bug#37413] [PATCH v2 06/11] ui: Add 'current-message-language'., Ludovic Courtès, 2019/09/21
- [bug#37413] [PATCH v2 08/11] pull: '-l' displays channel news.,
Ludovic Courtès <=
- [bug#37413] [PATCH v2 03/11] git: Add 'commit-difference'., Ludovic Courtès, 2019/09/21
- [bug#37413] [PATCH v2 05/11] channels: Allow news entries to refer to a tag., Ludovic Courtès, 2019/09/21
- [bug#37413] [PATCH v2 04/11] channels: Add support for a news file., Ludovic Courtès, 2019/09/21
- [bug#37413] [PATCH v2 10/11] Add '.guix-channel' file., Ludovic Courtès, 2019/09/21
- [bug#37413] [PATCH v2 11/11] DRAFT etc: Add channel news file., Ludovic Courtès, 2019/09/21
- [bug#37413] [PATCH v2 11/11] DRAFT etc: Add channel news file., pelzflorian (Florian Pelz), 2019/09/22
- [bug#37413] [PATCH v2 11/11] DRAFT etc: Add channel news file., Ludovic Courtès, 2019/09/23
[bug#37413] [PATCH v2 09/11] pull: Display news titles directly upon 'pull'., Ludovic Courtès, 2019/09/21