mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2026-03-31 06:44:20 +00:00
d9861ba574
* modules/rosenthal/packages/patches/cuirass-templates-Add-more-forges.patch: Update URLs in patch. * modules/rosenthal/packages/web.scm (caddy/dolly): Update URLs.
54 lines
2.2 KiB
Diff
54 lines
2.2 KiB
Diff
From 90bf62f411590cc0b813e6f62c3a0ef89cf17d1f Mon Sep 17 00:00:00 2001
|
|
From: Hilton Chain <hako@ultrarare.space>
|
|
Date: Sun, 30 Nov 2025 12:13:36 +0800
|
|
Subject: [PATCH] templates: Add more forges.
|
|
|
|
---
|
|
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 1cf7ebf..042d46a 100644
|
|
--- a/src/cuirass/templates.scm
|
|
+++ b/src/cuirass/templates.scm
|
|
@@ -1526,7 +1526,9 @@ (define %vcs-web-views
|
|
("git.guix.gnu.org" ,labhub-url) ;alias for codeberg.org
|
|
("gitlab.com" ,labhub-url)
|
|
("gitlab.inria.fr" ,labhub-url)
|
|
- ("github.com" ,labhub-url))))
|
|
+ ("github.com" ,labhub-url)
|
|
+ ("git.sr.ht" ,labhub-url)
|
|
+ ("git.guix.moe" ,labhub-url))))
|
|
|
|
(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.guix.moe" ,github-url))))
|
|
|
|
(define* (commit-hyperlink url commit
|
|
#:optional (text commit))
|
|
--
|
|
2.52.0
|
|
|