Switch news-flash from a box to a setter hook, some misc style.
This commit is contained in:
parent
10cb0e61e2
commit
571b1c3d12
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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"]{
|
||||
|
|
|
@ -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}
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user