diff options
Diffstat (limited to 'guix/forge/forge.scm')
| -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)))))) |