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

Minor improvements to version-specific download pages.

Browse Source
This commit is contained in:
Eli Barzilay 2013-02-25 01:23:43 -05:00
parent d113e79fb5
commit 2abcb883cd
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,8 +7,7 @@
(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))
@center-div{ @center-div{
@h2{Download @(package->name package) v@version @h2{@(package->name package) v@version (@(release-date-string release))}
(@(release-date-string release))}
@div[id: "download_panel" align: "center" style: "display: none;"]{ @div[id: "download_panel" align: "center" style: "display: none;"]{
@input[type: 'submit value: "Download" onclick: "do_jump();" @input[type: 'submit value: "Download" onclick: "do_jump();"
style: '("font-size: 200%; font-weight: bolder;" style: '("font-size: 200%; font-weight: bolder;"
@ -24,15 +23,20 @@
#:when (and (equal? release (installer-release i)) #:when (and (equal? release (installer-release i))
(equal? package (installer-package i)))) (equal? package (installer-package i))))
(installer->page i 'render-option))}} (installer->page i 'render-option))}}
@|br hr| @|br br|
@div[align: "center"]{ @(let* ([sep @list{@nbsp @bull @nbsp}]
@(let ([links (list ((release-page release) "Release Notes") [links (λ links @(tr (td (div style: "margin: 1ex 4ex;"
@a[href: @list{@|docs|/@|version|/html}]{Docs} (add-between links sep)))))]
@license{License} [docs @list{@|docs|/@|version|/html}])
all-version-pages @table[style: "text-align: center; font-size: small;"
@pre:installers{Nightly Installers})]) frame: 'hsides rules: 'rows]{
(small (add-between links @list{ @nbsp @bull @nbsp })))} @links[@list{Release: @nbsp @(release-page release){Announcement}}
@hr @a[href: @list{@|docs|/release/}]{Notes}
@a[href: @docs]{Documentation}]
@links[@license{License}
all-version-pages
@pre:installers{Nightly Installers}]})
@br
@div[id: "linux_explain" @div[id: "linux_explain"
style: '("font-size: 75%; display: none; width: 28em;" style: '("font-size: 75%; display: none; width: 28em;"
" margin-top: 1ex; text-align: center;")]{ " margin-top: 1ex; text-align: center;")]{