mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

etc: committer: Support plain input lists.

Browse source 
* etc/committer.scm.in (change-commit-message): Support new-style plain list
inputs in addition to old-style inputs with labels.
This commit is contained in:
Ricardo Wurmus 2022-01-23 13:29:07 +01:00
parent cd0afa1345
commit 67d74daf0c
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
etc/committer.scm.in
View file

@ -215,7 +215,12 @@ (define* (change-commit-message file-name old new #:optional (port (current-outp
"Print ChangeLog commit message for changes between OLD and NEW." "Print ChangeLog commit message for changes between OLD and NEW."
(define (get-values expr field) (define (get-values expr field)
(match ((sxpath `(// ,field quasiquote *)) expr) (match ((sxpath `(// ,field quasiquote *)) expr)
(() '()) (()
;; New-style plain lists
(match ((sxpath `(// ,field list *)) expr)
((inner) inner)
(_ '())))
;; Old-style labelled inputs
((first . rest) ((first . rest)
(map cadadr first)))) (map cadadr first))))
(define (listify items) (define (listify items)