03/04: Make it possible to set descriptions for pages

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit d79e23fd352ba6e18e5b9dfe5817f5cda12a292d
Author: Christopher Baines <address@hidden>
AuthorDate: Wed Apr 8 17:48:32 2020 +0100

    Make it possible to set descriptions for pages
---
 guix-data-service/web/view/html.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/web/view/html.scm 
b/guix-data-service/web/view/html.scm
index 1967247..1044a03 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -64,7 +64,8 @@
 (define* (layout #:key
                  (head '())
                  (body '())
-                 (title "Guix Data Service"))
+                 (title "Guix Data Service")
+                 description)
   `((doctype "html")
     (html
      (@ (lang "en"))
@@ -74,6 +75,11 @@
                (content "text/html; charset=UTF-8")))
       (meta (@ (name "viewport")
                (content "width=device-width, initial-scale=1")))
+      ,@(if description
+            `((meta
+               (@ (name "description")
+                  (content ,description))))
+            '())
       (link
        (@ (rel "stylesheet")
           (media "screen")