Make it possible to hook up a "newsflash" below the left blurb.

This commit is contained in:
Eli Barzilay 2011-05-23 14:04:36 -04:00
parent 7f6733b617
commit 31009166d7

View File

@ -252,13 +252,18 @@
(define blurb "Racket is a programming language")
(provide news-flash)
(define news-flash (box #f))
(provide index)
(define index
(page #:link-title "About" #:window-title "Racket"
#:extra-headers @list{@meta[name: 'description content: blurb]
@(delay more.css)}
@div[class: 'whatpane]{
@span{@span[class: 'whatb]{Racket} is a programming language.}}
@div[class: 'leftpane]{
@span{@span[style: "font-size: large; font-weight: bold;"]{Racket}
is a programming language.}@;
@(and (unbox news-flash) (list br br news-flash))}
@div[class: 'downloadbutton]{@download-button}
@div[class: 'aboutpane]{
@div[class: 'panetitle]{Start Quickly}
@ -406,15 +411,11 @@
background-repeat: no-repeat;
background-position: center top;
}
.whatpane {
.leftpane {
font-size: medium;
float: left;
width: 20%;
}
.whatb {
font-size: large;
font-weight: bold;
}
.aboutpane {
width: 56%;
margin-right: auto;