branch master updated: Add RSS link to the home 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 6bd940f  Add RSS link to the home page.
6bd940f is described below

commit 6bd940fc24646533ed2c113d9b551d23fe4f030d
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Feb 2 14:11:55 2021 +0100

    Add RSS link to the home page.
    
    * src/cuirass/templates.scm (specifications-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 1f2cb8b..bc3eade 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -183,7 +183,14 @@ system whose names start with " (code "guile-") ":" (br)
 
 (define* (specifications-table specs #:optional admin?)
   "Return HTML for the SPECS table."
-  `((p (@ (class "lead")) "Specifications")
+  `((p (@ (class "lead")) "Specifications"
+       (a (@ (href "/events/rss/"))
+          (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"))
      ,@(if (null? specs)