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

