me
/
guix
Archived
1
0
Fork 0
Code

etc: committer: Support plain input lists. 

* etc/committer.scm.in (change-commit-message): Support new-style plain list
inputs in addition to old-style inputs with labels.
master
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 @@ corresponding to the top-level definition containing the staged changes."
"Print ChangeLog commit message for changes between OLD and NEW."
(define (get-values expr field)
(match ((sxpath `(// ,field quasiquote *)) expr)
(() '())
(()
;; New-style plain lists
(match ((sxpath `(// ,field list *)) expr)
((inner) inner)
(_ '())))
;; Old-style labelled inputs
((first . rest)
(map cadadr first))))
(define (listify items)