cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make it possible to set descriptions for pages

Browse source
This commit is contained in:
Christopher Baines 2020-04-08 17:48:32 +01:00
parent 491cea9e6c
commit d79e23fd35
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix-data-service/web/view/html.scm
View file

@ -64,7 +64,8 @@
(define* (layout #:key (define* (layout #:key
(head '()) (head '())
(body '()) (body '())
(title "Guix Data Service")) (title "Guix Data Service")
description)
`((doctype "html") `((doctype "html")
(html (html
(@ (lang "en")) (@ (lang "en"))
@ -74,6 +75,11 @@
(content "text/html; charset=UTF-8"))) (content "text/html; charset=UTF-8")))
(meta (@ (name "viewport") (meta (@ (name "viewport")
(content "width=device-width, initial-scale=1"))) (content "width=device-width, initial-scale=1")))
,@(if description
`((meta
(@ (name "description")
(content ,description))))
'())
(link (link
(@ (rel "stylesheet") (@ (rel "stylesheet")
(media "screen") (media "screen")