From eec1479c187c0845e070da4a7a337575dda354df Mon Sep 17 00:00:00 2001 From: Jesse Alama Date: Thu, 28 May 2020 06:28:29 +0200 Subject: [PATCH] If available, add description meta element to head --- src/bootstrap.rkt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/bootstrap.rkt b/src/bootstrap.rkt index 3ecf421..5d59738 100644 --- a/src/bootstrap.rkt +++ b/src/bootstrap.rkt @@ -53,6 +53,7 @@ #:code [code 200] #:message [message #"Okay"] #:body-class [body-class #f] + #:description [description #f] . body-contents) (response/xexpr @@ -65,6 +66,10 @@ (meta ((http-equiv "X-UA-Compatible") (content "IE=edge"))) (meta ((name "viewport") (content "width=device-width, initial-scale=1"))) (title ,title) + ,@(if (non-empty-string? description) + `(meta ((name "description") + (content ,description))) + '()) (link ((rel "stylesheet") (href ,(static "/bootstrap/css/bootstrap.min.css")) (type "text/css"))) (link ((rel "stylesheet") (href ,(static "/jquery-ui.min.css")) (type "text/css"))) (link ((rel "stylesheet") (href ,(static "/style.css")) (type "text/css")))