ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

maint: update-NEWS: Sort packages prior writing to the data file.

Browse source 
* build-aux/update-NEWS.scm (main): Sort packages.
This commit is contained in:
Maxim Cournoyer 2021-05-10 12:23:55 -04:00
parent 7418a20074
commit ed2d4d52dd
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
build-aux/update-NEWS.scm
View file

@ -166,16 +166,22 @@ (define (package-file version)
(string-append data-directory "/packages-" (string-append data-directory "/packages-"
version ".txt")) version ".txt"))
(define (package<? p1 p2)
(string<? (package-full-name p1) (package-full-name p2)))
(let-values (((previous-version new-version) (let-values (((previous-version new-version)
(call-with-input-file news-file NEWS->versions))) (call-with-input-file news-file NEWS->versions)))
(format (current-error-port) "Updating NEWS for ~a to ~a...~%" (format (current-error-port) "Updating NEWS for ~a to ~a...~%"
previous-version new-version) previous-version new-version)
(let* ((old (call-with-input-file (package-file previous-version) (let* ((old (call-with-input-file (package-file previous-version)
read)) read))
(new (fold-packages (lambda (p r) (all-packages/sorted (sort (fold-packages (lambda (p r)
(alist-cons (package-name p) (package-version p) (cons p r))
r)) '())
'()))) package<?))
(new (map (lambda (p)
(cons (package-name p) (package-version p)))
all-packages/sorted)))
(call-with-output-file (package-file new-version) (call-with-output-file (package-file new-version)
(lambda (port) (lambda (port)
(pretty-print new port))) (pretty-print new port)))