branch master updated: Add RSS link to the evaluation page.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 4e98cb0  Add RSS link to the evaluation page.
4e98cb0 is described below

commit 4e98cb02dd6bfd31ef4685afe440bc00d63734e0
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Feb 2 14:09:35 2021 +0100

    Add RSS link to the evaluation page.
    
    * src/cuirass/templates.scm (evaluation-info-table): Add RSS link.
---
 src/cuirass/templates.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index b0ca9ec..1f2cb8b 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -458,7 +458,14 @@ system whose names start with " (code "guile-") ":" (br)
 (define (evaluation-info-table name evaluations id-min id-max)
   "Return HTML for the EVALUATION table NAME. ID-MIN and ID-MAX are
   global minimal and maximal id."
-  `((p (@ (class "lead")) "Evaluations of " ,name)
+  `((p (@ (class "lead")) "Evaluations of " ,name
+       (a (@ (href "/events/rss/?specification=" ,name))
+          (button (@ (class "btn btn-outline-warning float-right")
+                     (type "button"))
+                  (span (@(class "oi oi-rss text-warning align-right")
+                         (title "RSS")
+                         (aria-hidden "true"))
+                        ""))))
     (table
      (@ (class "table table-sm table-hover table-striped"))
      ,@(if (null? evaluations)