From 6a7e4c83f3a54ac130410b81554212b61b929d07 Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Tue, 17 Feb 2026 18:16:51 +0800 Subject: [PATCH] rosenthal: cuirass/dolly: Add commit range view to the patch. * modules/rosenthal/packages/patches/cuirass-templates-Add-more-forges.patch: Update. --- .../cuirass-templates-Add-more-forges.patch | 36 ++++++++++++++++--- 1 file changed, 31 insertions(+), 5 deletions(-) diff --git a/modules/rosenthal/packages/patches/cuirass-templates-Add-more-forges.patch b/modules/rosenthal/packages/patches/cuirass-templates-Add-more-forges.patch index 064a430..0b00f2c 100644 --- a/modules/rosenthal/packages/patches/cuirass-templates-Add-more-forges.patch +++ b/modules/rosenthal/packages/patches/cuirass-templates-Add-more-forges.patch @@ -1,14 +1,14 @@ -From b6c1341082102ff4416186cca549b5f05efda162 Mon Sep 17 00:00:00 2001 +From f45f42fe17a0037ce3b8c4f22537f257338734e5 Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Sun, 30 Nov 2025 12:13:36 +0800 Subject: [PATCH] templates: Add more forges. --- - src/cuirass/templates.scm | 4 +++- - 1 file changed, 3 insertions(+), 1 deletion(-) + src/cuirass/templates.scm | 16 +++++++++++++--- + 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm -index d591705..5518331 100644 +index 1cf7ebf..2ee29fa 100644 --- a/src/cuirass/templates.scm +++ b/src/cuirass/templates.scm @@ -1526,7 +1526,9 @@ (define %vcs-web-views @@ -22,6 +22,32 @@ index d591705..5518331 100644 (define %vcs-web-commit-range-views ;; List of host names and corresponding URL to display a commit range. +@@ -1541,7 +1543,13 @@ (define %vcs-web-commit-range-views + (if (string-suffix? ".git" repository-url) + (string-drop-right repository-url 4) + repository-url) +- "/compare/" commit1 ".." commit2)))) ++ "/compare/" commit1 ".." commit2))) ++ (sourcehut-url (lambda (repository-url _ commit2) ++ (string-append ++ (if (string-suffix? ".git" repository-url) ++ (string-drop-right repository-url 4) ++ repository-url) ++ "/log/?from=" commit2)))) + `(("git.savannah.gnu.org" + ,(lambda (repository-url commit1 commit2) + (string-append (string-replace-substring repository-url +@@ -1552,7 +1560,9 @@ (define %vcs-web-commit-range-views + ("git.guix.gnu.org" ,github-url) ;alias for codeberg.org + ("gitlab.com" ,gitlab-url) + ("gitlab.inria.fr" ,gitlab-url) +- ("github.com" ,github-url)))) ++ ("github.com" ,github-url) ++ ("git.sr.ht" ,sourcehut-url) ++ ("git.urspace.moe" ,github-url)))) + + (define* (commit-hyperlink url commit + #:optional (text commit)) -- -2.51.2 +2.52.0