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

meta/new-web: adjust all-version download page style

Browse Source
This commit is contained in:
Matthew Flatt 2014-03-11 16:11:34 -06:00
parent 3500c90361
commit b41ec5dd8c
1 changed files with 23 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
pkgs/plt-services/meta/new-web/download/download-pages.rkt
View File

@ -98,18 +98,7 @@
@(render-download-page rel pkg)}) @(render-download-page rel pkg)})
(define style (define style
@style/inline[type: 'text/css]{ @style/inline[type: 'text/css]{
.version-row { })
background-color: #ffffc0;
}
.version-row:hover {
background-color: #e0e0a0;
}
.version-row a {
text-decoration: none;
}
.version-row a:hover {
background-color: #eeee22;
}})
(define-values (main-package alt-packages) (define-values (main-package alt-packages)
(cond [(null? all-packages) (cond [(null? all-packages)
(eprintf "Warning: all-packages is empty\n") (eprintf "Warning: all-packages is empty\n")
@ -120,15 +109,15 @@
#:id 'all-versions #:title "All Versions" #:part-of 'download #:id 'all-versions #:title "All Versions" #:part-of 'download
#:extra-headers style #:width 'full]{ #:extra-headers style #:width 'full]{
@columns[10 #:center? #t #:row? #t]{ @columns[10 #:center? #t #:row? #t]{
@table[align: 'center cellspacing: 0 cellpadding: 4 frame: 'box @table[class: "striped rounded"]{
rules: 'groups]{
@thead{ @thead{
@tr{@td{@nbsp @strong{Version & Announcement}} @tr{@th{Version}
@th[align: 'center]{@(package->name main-package)} @th{Announcement}
@th[align: 'center]{Alternative Distributions} @th{Download}
@td{@strong{Documentation}}}} @th{Alternative}
@(let ([sep (tr style: "height: 4px; margin: 0; padding: 0;" @th{Documentation}}}
(td) (map (λ (_) (td)) all-packages))]) @tbody{
@(let ([sep null])
;; release=>packages : hash[release => (listof package)] ;; release=>packages : hash[release => (listof package)]
;; Indicates what packages actually exist (have installers) for a given release. ;; Indicates what packages actually exist (have installers) for a given release.
(define release=>packages (make-hash)) (define release=>packages (make-hash))
@ -139,37 +128,33 @@
(hash-set! release=>packages r (cons (installer-package i) prev-packages)))) (hash-set! release=>packages r (cons (installer-package i) prev-packages))))
(define (cell rel pkg) (define (cell rel pkg)
@td[align: 'center]{ @td[align: 'center]{
@nbsp @(make-page rel pkg){[download]} @nbsp}) @(make-page rel pkg){@(package->name main-package)}})
@tbody{
@sep @sep
@(for/list ([r (in-list all-releases)]) @(for/list ([r (in-list all-releases)])
(define ver (release-version r)) (define ver (release-version r))
@list{ @list{
@tr[class: 'version-row]{ @tr[class: 'version-row]{
@td{@|nbsp nbsp| @strong{Version @ver}, @td{@strong{Version @ver}}
@(release-page r){@release-date-string[r]} @nbsp} @td{@span[style: "font-size: 80%"]{@(release-page r){@release-date-string[r]}}}
@(if (member main-package (hash-ref release=>packages r)) @(if (member main-package (hash-ref release=>packages r))
(cell r main-package) (cell r main-package)
@td[]) @td[])
@td[align: 'center]{ @td[align: 'center]{
@nbsp
@(add-between @(add-between
(for/list ([p (in-list alt-packages)] (for/list ([p (in-list alt-packages)]
#:when (member p (hash-ref release=>packages r))) #:when (member p (hash-ref release=>packages r)))
((make-page r p) (format "[download ~a]" (package->name p)))) ((make-page r p) (package->name p)))
@nbsp) " ")}
@nbsp} @td{@a[href: @list{@|docs|/@|ver|/html}]{[HTML]} @;
@td{@nbsp @a[href: @list{@|docs|/@|ver|/html}]{[HTML]} @; @nbsp @;
@nbsp @a[href: @list{@|docs|/@|ver|/pdf}]{[PDF]} @; @a[href: @list{@|docs|/@|ver|/pdf}]{[PDF]}}}
@nbsp}} @sep}))
@sep})})
@tfoot{
@tr[class: 'version-row]{ @tr[class: 'version-row]{
@td[]{Snapshots} @td{Development}
@td[align: 'center colspan: 2]{@pre:installers} @td{}
@td{@; @nbsp @pre:docs[#:sub 'html]{[HTML]} @; @td{@pre:installers{Snapshots}}
@; @nbsp @pre:docs[#:sub 'pdf]{[PDF]} @td{}
@nbsp}}}}}})) @td{}}}}}}))
(define license (define license
@page[#:site download-site @page[#:site download-site