seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-03-04 17:04:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

etc: Update committer.scm.

Browse Source
This commit is contained in:
Hilton Chain 2026-02-24 14:47:03 +08:00
parent 5cbca316d9
commit eb6e174eb8
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 28 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
etc/committer.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2020, 2021, 2022, 2023 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2020, 2021, 2022, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev> ;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz> ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2022 Maxim Cournoyer <maxim@guixotic.coop>
;;; Commentary: ;;; Commentary:
@ -267,21 +267,27 @@ corresponding to the top-level definition containing the staged changes."
(define variable-name (define variable-name
(second old)) (second old))
(define version (define version
(and=> ((xpath:node-or (match ((xpath:node-or
(xpath:sxpath '(*any* *any* package version *any*)) (xpath:sxpath '(*any* *any* package version *any*))
;; For let binding ;; For let binding
(xpath:sxpath '(*any* *any* (*any*) package version *any*))) (xpath:sxpath '(*any* *any* (*any*) package version *any*)))
(cons '*TOP* new)) (cons '*TOP* new))
first)) (() #f)
((version . rest) version)))
(if version
(format port (format port
"rosenthal: ~a: Update to ~a.~%~%* ~a (~a): Update to ~a.~%" "rosenthal: ~a: Update to ~a.~%~%* ~a (~a): Update to ~a.~%"
variable-name version file-name variable-name version) variable-name version file-name variable-name version)
(format port
"rosenthal: ~a: Update.~%~%* ~a (~a): Update.~%"
variable-name file-name variable-name))
(for-each (lambda (field) (for-each (lambda (field)
(let ((old-values (get-values old field)) (let ((old-values (get-values old field))
(new-values (get-values new field))) (new-values (get-values new field)))
(or (equal? old-values new-values) (or (equal? old-values new-values)
(let ((removed (lset-difference equal? old-values new-values)) (let ((removed (lset-difference equal? old-values new-values))
(added (lset-difference equal? new-values old-values))) (added (lset-difference equal? new-values old-values)))
(unless (and (null? added) (null? removed))
(format port (format port
"[~a]: ~a~%" field "[~a]: ~a~%" field
(break-string (break-string
@ -297,7 +303,7 @@ corresponding to the top-level definition containing the staged changes."
((removed added) ((removed added)
(format #f "Remove ~a; add ~a." (format #f "Remove ~a; add ~a."
(listify removed) (listify removed)
(listify added)))))))))) (listify added)))))))))))
'(inputs propagated-inputs native-inputs))) '(inputs propagated-inputs native-inputs)))
(define* (add-commit-message file-name variable-name (define* (add-commit-message file-name variable-name