Switch news-flash from a box to a setter hook, some misc style.

This commit is contained in:
Eli Barzilay 2011-05-24 04:54:56 -04:00
parent 10cb0e61e2
commit 571b1c3d12
5 changed files with 7 additions and 10 deletions

View File

@ -4,7 +4,6 @@
(prefix-in pre: "../stubs/pre.rkt"))
(provide render-download-page)
(define (render-download-page [version current-version] [package 'racket])
@center-div{
@h2{Download @(package->name package)

View File

@ -47,8 +47,6 @@
@; (looks redundant now that all of the installers are pretty standard)
@;section{Installation instructions}
@;(bundle-installation-instructions bundle)
@;br{}
@;div[align: 'right]{(@(link-to 'license))}
})
(provide installer->page)

View File

@ -2,8 +2,7 @@
(require "resources.rkt" "../download/download-pages.rkt")
(provide download-button download)
(provide download)
(define download
@page[#:link-title "Download" #:window-title "Download Racket"
#:file "download/" #:part-of 'download]{
@ -12,6 +11,7 @@
(define images (list (copyfile (in-here "download.png"))
(copyfile (in-here "download-dark.png"))))
(provide download-button)
(define (download-button)
@text{
@script/inline[type: "text/javascript"]{

View File

@ -252,8 +252,9 @@
(define blurb "Racket is a programming language")
(provide news-flash)
(define news-flash (box #f))
(provide set-news-flash!)
(define news-flash #f)
(define (set-news-flash! . text) (set! news-flash text))
(provide index)
(define index
@ -263,7 +264,7 @@
@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))}
@(and news-flash (list br br news-flash))}
@div[class: 'downloadbutton]{@download-button}
@div[class: 'aboutpane]{
@div[class: 'panetitle]{Start Quickly}

View File

@ -2,8 +2,6 @@
(require "resources.rkt")
(provide irc-quick)
(define webchat-link
"http://webchat.freenode.net?channels=racket&uio=OT10cnVlJjExPTIzNg6b")
@ -20,6 +18,7 @@
}
(lambda (text) @a[href: "irc-logs/"]{@text})))
(provide irc-quick)
(define (irc-quick)
@parlist[@strong{Discussion Channel}
@text{@irc-chat{Chat on IRC} in the @TT{@big{@strong{#racket}}} channel on