From 571b1c3d12240d49e8ea00e6cf411fb31b6135e6 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Tue, 24 May 2011 04:54:56 -0400
Subject: [PATCH] Switch news-flash from a box to a setter hook, some misc
 style.

---
 collects/meta/web/download/download-pages.rkt  | 1 -
 collects/meta/web/download/installer-pages.rkt | 2 --
 collects/meta/web/www/download.rkt             | 4 ++--
 collects/meta/web/www/index.rkt                | 7 ++++---
 collects/meta/web/www/irc.rkt                  | 3 +--
 5 files changed, 7 insertions(+), 10 deletions(-)

diff --git a/collects/meta/web/download/download-pages.rkt b/collects/meta/web/download/download-pages.rkt
index cc1b2f0eb6..a1eda448ec 100644
--- a/collects/meta/web/download/download-pages.rkt
+++ b/collects/meta/web/download/download-pages.rkt
@@ -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)
diff --git a/collects/meta/web/download/installer-pages.rkt b/collects/meta/web/download/installer-pages.rkt
index 5cdc06f995..ebbaa8e10f 100644
--- a/collects/meta/web/download/installer-pages.rkt
+++ b/collects/meta/web/download/installer-pages.rkt
@@ -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)
diff --git a/collects/meta/web/www/download.rkt b/collects/meta/web/www/download.rkt
index a9d3eb2e01..b4ed2786e4 100644
--- a/collects/meta/web/www/download.rkt
+++ b/collects/meta/web/www/download.rkt
@@ -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"]{
diff --git a/collects/meta/web/www/index.rkt b/collects/meta/web/www/index.rkt
index cbdc585db4..2681d024e1 100644
--- a/collects/meta/web/www/index.rkt
+++ b/collects/meta/web/www/index.rkt
@@ -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}
diff --git a/collects/meta/web/www/irc.rkt b/collects/meta/web/www/irc.rkt
index 42835d509e..6a0c772a97 100644
--- a/collects/meta/web/www/irc.rkt
+++ b/collects/meta/web/www/irc.rkt
@@ -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