diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-08 17:48:32 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-08 17:48:32 +0100 |
| commit | d79e23fd352ba6e18e5b9dfe5817f5cda12a292d (patch) | |
| tree | ee22cbbc12538f615efa1e5f5a3ee09ef57a5fac /guix-data-service/web/view | |
| parent | 491cea9e6c7b2e7951926e53c53da4a43b26d317 (diff) | |
| download | data-service-d79e23fd352ba6e18e5b9dfe5817f5cda12a292d.tar data-service-d79e23fd352ba6e18e5b9dfe5817f5cda12a292d.tar.gz | |
Make it possible to set descriptions for pages
Diffstat (limited to 'guix-data-service/web/view')
| -rw-r--r-- | guix-data-service/web/view/html.scm | 8 |
1 files changed, 7 insertions, 1 deletions
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") |