suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

If available, add description meta element to head

Browse Source
This commit is contained in:
Jesse Alama 2020-05-28 06:28:29 +02:00 committed by Jay McCarthy
parent 79a6ba2ada
commit eec1479c18
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/bootstrap.rkt
View File

@ -53,6 +53,7 @@
#:code [code 200] #:code [code 200]
#:message [message #"Okay"] #:message [message #"Okay"]
#:body-class [body-class #f] #:body-class [body-class #f]
#:description [description #f]
. .
body-contents) body-contents)
(response/xexpr (response/xexpr
@ -65,6 +66,10 @@
(meta ((http-equiv "X-UA-Compatible") (content "IE=edge"))) (meta ((http-equiv "X-UA-Compatible") (content "IE=edge")))
(meta ((name "viewport") (content "width=device-width, initial-scale=1"))) (meta ((name "viewport") (content "width=device-width, initial-scale=1")))
(title ,title) (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 "/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 "/jquery-ui.min.css")) (type "text/css")))
(link ((rel "stylesheet") (href ,(static "/style.css")) (type "text/css"))) (link ((rel "stylesheet") (href ,(static "/style.css")) (type "text/css")))