[no subject]

[Ludovic Courtès]

branch: main
commit 30dabb697c5ce3c56b801469c4153c039ad18773
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Dec 20 22:34:01 2024 +0100

    templates: Display pull-request info on jobset dashboards.
    
    * src/cuirass/templates.scm (evaluation-dashboard): Add ‘spec’.  Call
    ‘pull-request-info-box’.
    * src/cuirass/http.scm (dashboard-page): Pass ‘spec’ to
    ‘evaluation-dashboard’.
---
 src/cuirass/http.scm      | 1 +
 src/cuirass/templates.scm | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index bcaa58e..9de56fb 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -510,6 +510,7 @@ passed, only display JOBS targeting this SYSTEM."
      (string-append "Evaluation " (number->string evaluation-id)
                     " | " spec-name " | Dashboard")
      (evaluation-dashboard (db-get-evaluation evaluation-id)
+                           spec
                            systems
                            #:channels channels
                            #:checkouts checkouts
diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index f381e2d..ca7dc41 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -2302,7 +2302,7 @@ text-dark d-flex position-absolute w-100"))
            (span (@ (class "oi oi-data-transfer-download pr-2")) "")
            (a (@ (href ,url)) "raw build log")))))
 
-(define* (evaluation-dashboard evaluation systems
+(define* (evaluation-dashboard evaluation spec systems
                                #:key
                                (checkouts (evaluation-checkouts evaluation))
                                channels
@@ -2374,6 +2374,9 @@ text-dark d-flex position-absolute w-100"))
                                          ""))
                              "#")))
                     "»")))))
+
+      ,(pull-request-info-box (specification-properties spec))
+
       (details
        (summary ,(format #f "Evaluation completed ~a."
                          (time->string time)))