From d79e23fd352ba6e18e5b9dfe5817f5cda12a292d Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 8 Apr 2020 17:48:32 +0100
Subject: Make it possible to set descriptions for pages

---
 guix-data-service/web/view/html.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'guix-data-service')

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")
-- 
cgit v1.2.3