suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

De-emphasize the platform selection to minimize people getting confused by it.

Browse Source
This commit is contained in:
Eli Barzilay 2011-08-13 18:41:13 -04:00
parent 1553658369
commit 891df4919c
1 changed files with 21 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
collects/meta/web/download/download-pages.rkt
View File

@ -6,19 +6,28 @@
(provide render-download-page) (provide render-download-page)
(define (render-download-page [release current-release] [package 'racket]) (define (render-download-page [release current-release] [package 'racket])
(define version (release-version release)) (define version (release-version release))
(define combo-style `("background-color: #e8e8e8; color: #808080;"))
@center-div{ @center-div{
@h2{Download @(package->name package) @h2{Download @(package->name package) v@version
v@version (@(release-date-string release))} (@(release-date-string release))}
@div[id: "download_panel" style: "display: none;"]{ @div[id: "download_panel" align: "center" style: "display: none;"]{
Platform: @input[type: 'submit value: "Download" onclick: "do_jump();"
@select[id: "platform_selector" style: '("font-size: 200%; font-weight: bolder;"
onchange: "selection_changed();" " letter-spacing: 0.2em;"
onkeypress: "selection_changed();"]{ " margin: 0.5ex 0 1ex 0; width: 100%;")]
@(for/list ([i (in-list all-installers)] @br
#:when (and (equal? release (installer-release i)) @div[style: combo-style]{
(equal? package (installer-package i)))) Platform:
(installer->page i 'render-option))} @select[id: "platform_selector" style: combo-style
@input[type: 'submit value: "Download" onclick: "do_jump();"] onfocus: '("this.oldcolor=this.style.color;"
" this.style.color='#000000';")
onblur: `("this.style.color=this.oldcolor;")
onchange: "selection_changed();"
onkeypress: "selection_changed();"]{
@(for/list ([i (in-list all-installers)]
#:when (and (equal? release (installer-release i))
(equal? package (installer-package i))))
(installer->page i 'render-option))}}
@|br hr| @|br hr|
@div[align: "center"]{ @div[align: "center"]{
@(let ([links (list ((release-page release) "Release Notes") @(let ([links (list ((release-page release) "Release Notes")