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

RSS Feed Autodiscovery

Browse Source
This commit is contained in:
Tony Garnock-Jones 2016-08-10 12:06:53 -04:00
parent 31627739dd
commit cd06e7fc87
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/bootstrap.rkt
View File

@ -13,6 +13,7 @@
bootstrap-page-scripts
bootstrap-cookies
bootstrap-inline-js
bootstrap-head-extra
bootstrap-response
bootstrap-redirect
@ -39,6 +40,7 @@
(define bootstrap-page-scripts (make-parameter '()))
(define bootstrap-cookies (make-parameter '()))
(define bootstrap-inline-js (make-parameter #f))
(define bootstrap-head-extra (make-parameter '()))
(define (static str)
(string-append (bootstrap-static-urlprefix) str))
@ -67,7 +69,8 @@
(link ((rel "stylesheet") (href ,(static "/jquery-ui.min.css")) (type "text/css")))
(link ((rel "stylesheet") (href ,(static "/style.css")) (type "text/css")))
,@(for/list ((sheet (bootstrap-page-stylesheets)))
`(link ((rel "stylesheet") (href ,sheet) (type "text/css")))))
`(link ((rel "stylesheet") (href ,sheet) (type "text/css"))))
,@(bootstrap-head-extra))
(body ,@(maybe-splice body-class `((class ,body-class)))
(nav ((class "navbar navbar-inverse navbar-fixed-top") (role "navigation"))
(div ((class "container-fluid"))

5
src/site.rkt
View File

@ -129,6 +129,11 @@
(define-syntax-rule (with-site-config body ...)
(parameterize ((bootstrap-navbar-header (navbar-header))
(bootstrap-head-extra
`((link ((rel "alternate")
(type "application/atom+xml")
(title "Atom Feed")
(href ,(static-resource-url "/atom.xml"))))))
(bootstrap-navigation
`((,nav-index ,(main-page-url))
("Documentation" "https://docs.racket-lang.org/")