diff options
| author | Arun Isaac | 2025-11-04 18:07:58 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-11-05 01:13:55 +0000 |
| commit | 0dad5159dc04b3535b7d28be7ce63ddd9c251154 (patch) | |
| tree | b39ee9e91ff240a47c0cc7136229fe024ebbae61 | |
| parent | bc3be58db3492a6fd4d077afbe171d762602bd3d (diff) | |
| download | guix-forge-0dad5159dc04b3535b7d28be7ce63ddd9c251154.tar.gz guix-forge-0dad5159dc04b3535b7d28be7ce63ddd9c251154.tar.lz guix-forge-0dad5159dc04b3535b7d28be7ce63ddd9c251154.zip | |
forge: Link from index page to website of individual projects.
| -rw-r--r-- | guix/forge/forge.scm | 13 |
1 files 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)))))) |