Make it possible to set descriptions for pages

2020-04-08 17:48:32 +01:00 · 2020-04-08 17:48:32 +01:00 · d79e23fd35
commit d79e23fd35
parent 491cea9e6c
1 changed files with 7 additions and 1 deletions
--- 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")