racket/collects/meta/web/common/resources.rkt
Eli Barzilay fb2b5418df More files for all sites.
Two verification files for google/bing website tools, and also add a
no-op robots.txt file to avoid error-log lines.
2012-06-27 09:26:29 -04:00

132 lines
3.3 KiB
Racket

#lang at-exp racket/base
(require scribble/html)
;; These are some resources that are shared across different toplevel
;; sites. They could be included from a single place, but then when one
;; machine crashes the rest won't work right. (Note: do not add
;; resources that are specific to only one site here, do so in the
;; site's "resources.rkt" file)
(require "utils.rkt")
(provide make-resource-files
navbar-style page-sizes font-family) ; needed for the blog template
(define (make-resource-files dir robots.txt)
(define (copyfile file)
(copyfile-resource (in-here file) (web-path dir file)))
(define (writefile file . contents)
(resource (web-path dir file) (file-writer output (list contents "\n"))))
`([logo ,(copyfile "logo.png")]
[icon ,(copyfile "plticon.ico")]
[style ,(writefile "plt.css" racket-style)]
[verification:google
@,writefile["google5b2dc47c0b1b15cb.html"]{
google-site-verification: google5b2dc47c0b1b15cb.html}]
[verification:bing
@,writefile["BingSiteAuth.xml"]{
<?xml version="1.0"?>
<users><user>140BE58EEC31CB97382E1016E21C405A</user></users>}]
[robots
;; #t (the default) => no-op file, good to avoid error-log lines
,(let ([t (if (eq? #t robots.txt) "User-agent: *\nDisallow:" robots.txt)])
(and t (writefile "robots.txt" t)))]))
(define page-sizes
@list{
margin-left: auto;
margin-right: auto;
width: 45em;
})
(define font-family
@list{
font-family: Optima, Arial, Verdana, Helvetica, sans-serif;
})
(define navbar-style
;; All of these are made to apply only inside `racketnav', so the styles can
;; be used in places with their own CSS (eg, blog.racket-lang.org)
@list{
.racketnav {
background-color: #000000;
color: #ffffff;
margin-bottom: 1em;
padding: 0.5em 0em;
white-space: nowrap;
}
.racketnav a {
color: #ffffff;
text-decoration: none;
}
.racketnav .navcontent {
@page-sizes
@font-family
}
.racketnav .navtitle {
font-size: xx-large;
font-weight: bold;
}
.racketnav .navitem {
text-decoration: none;
font-size: 88%;
}
.racketnav .navlink a {
padding: 0em 1em;
}
.racketnav .navcurlink a {
padding: 0em 1em;
background-color: #555555;
}
.racketnav .navlink a:hover,
.racketnav .navcurlink a:hover {
background-color: #888888;
}
.racketnav .navlinkcell {
text-align: center;
}
.racketnav .helpiconcell {
text-align: right;
vertical-align: top;
}
.racketnav .helpicon {
font-weight: bold;
font-size: 88%;
}
})
(define racket-style
@list{
@; ---- generic styles ----
html {
overflow-y: scroll;
}
body {
color: black;
background-color: white;
@font-family
margin: 0px;
padding: 0px;
}
a {
text-decoration: none;
}
a:hover {
text-decoration: underline;
}
@; ---- content styles ----
.bodycontent {
@page-sizes
}
@; ---- styles for the navbar ----
@navbar-style
@; ---- styles for extras ----
.parlisttitle {
margin-bottom: 0.5em;
}
.parlistitem {
margin-bottom: 0.5em;
margin-left: 2em;
}
})