From 0dad5159dc04b3535b7d28be7ce63ddd9c251154 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 4 Nov 2025 18:07:58 +0000
Subject: forge: Link from index page to website of individual projects.

---
 guix/forge/forge.scm | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/guix/forge/forge.scm b/guix/forge/forge.scm
index 49cc0d5..71d0f51 100644
--- a/guix/forge/forge.scm
+++ b/guix/forge/forge.scm
@@ -139,14 +139,21 @@
                 `(html
                   (body
                    ,@(map (match-lambda
-                            ((name description)
-                             `((h2 ,name)
+                            ((name description website-link)
+                             `((h2 ,(if website-link
+                                        `(a (@ (href ,website-link))
+                                            ,name)
+                                        name))
                                ,@(if description
                                      `((p ,description))
                                      '()))))
                           '#$(map (lambda (project)
                                     (list (forge-project-name project)
-                                          (forge-project-description project)))
+                                          (forge-project-description project)
+                                          (and (forge-project-website-ci-job project)
+                                               (if (forge-project-web-domain project)
+                                                   (string-append "https://" (forge-project-web-domain project))
+                                                   (string-append "/" (forge-project-name project) "/")))))
                                   (forge-configuration-projects config))))))))
           (call-with-output-file (string-append #$output "/index.html")
             (cut put-string <> html))))))
-- 
cgit 1.4.1