meta/new-web: streamline download sequence

Instead of requiring a trip through a page that lists mirrors, show a
direct link to the main-site download.

Also, make alternate distributions like "Racket Minimal" more
accessible.

pkgs/plt-services/meta/new-web/download/data.rkt

@@ -1,4 +1,5 @@
 #lang racket/base
+(require racket/string)
 
 (define -platform-names-
   `(;; source platforms
@@ -50,7 +51,7 @@
     ["sit" "StuffIt Archive"]))
 
 (define -mirrors-
-  '(["Main (Amazon Web Services)"
+  '(["USA, East"
      main
      "Matthew Flatt"
      "mflatt@cs.utah.edu"]
@@ -279,7 +280,7 @@
     (λ (package)
       (hash-ref! t package
         (λ () (string-titlecase
-               (regexp-replace #rx"-" (symbol->string package) " ")))))))
+               (string-join (reverse (string-split (symbol->string package) "-")) " ")))))))
 
 (define platform-names
   (for/list ([pn (in-list -platform-names-)])

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

@@ -8,24 +8,46 @@
 (provide render-download-page)
 (define (render-download-page [release current-release] [package 'racket])
   (define version (release-version release))
+  (define all-packages (sort (hash-map (for/hash ([i (in-list all-installers)]
+                                                  #:when (equal? release (installer-release i)))
+                                         (values (installer-package i)
+                                                 (installer->page i 'render-package-option)))
+                                       cons)
+                             (lambda (a b)
+                               (cond
+                                [(equal? (car a) package) #t]
+                                [(equal? (car b) package) #f]
+                                [else (string<? (cdr a) (cdr b))]))))
   (list
    @columns[10 #:center? #t #:row? #t #:center-text? #t]{
-    @h2[style: "text-align: center"]{@(package->name package) v@version (@(release-date-string release))}
+    @h3[style: "text-align: center"]{Version @version (@(release-date-string release))}
-    @div[id: "download_panel" align: "center" style: "display: none;"]{
+    @div[id: "download_panel" align: "center" style: "display: none; margin-bottom: 20px;"]{
-      @input[type: 'submit value: "Download" onclick: "do_jump();"
+      @div[align: "center"]{
-             style: '("font-size: 200%; font-weight: bolder;"
+        Distribution:
-                      " letter-spacing: 0.2em;"
+        @select[id: "package_selector"
-                      " margin: 0.5ex 0 1ex 0; width: 50%;")]
+                onchange:   "selection_changed();"
-      @br
+                onkeypress: "selection_changed();"]{
-      @div[style: "margin-bottom: 20px"]{
+          @(for/list ([i (in-list all-packages)])
+             (cdr i))}
+        @(for/list ([i (in-list all-packages)]
+                    [n (in-naturals)])
+           (define this-package (car i))
+           @div[id: (format "platform_selector_panel_~a" this-package)
+                style: (if (zero? n) "display: block;" "display: none;")]{
               Platform:
-        @select[id: "platform_selector"
+              @select[id: (format "platform_selector_~a" this-package)
                       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))))
+                                        (equal? this-package (installer-package i))))
-             (installer->page i 'render-option))}}}}
+                   (installer->page i 'render-direct-option))}})}
+      @br
+      @navigation-button[@(a href: (resource "download/" #f)
+                             id: "download_link"
+                             "Download")]
+      @br
+      or @a[href: (resource "download/" #f) id: "mirror_link"]{mirror}}}
   @columns[8 #:center? #t #:center-text? #t #:row? #t]{
       @(let* ([sep   @list{@nbsp @bull @nbsp}]
               [links (λ links @(div style: "margin: 1ex 4ex;" (add-between links sep)))]
@@ -45,7 +67,7 @@
         your particular platform, try other Linux installers, starting from
         similar ones.  Very often, a build on one Linux variant will work on
         others too.}
-    @downloader-script
+    @downloader-script[package (map car all-packages)]
     @noscript{
       Installers are available for the following platforms:
       @ul{@(for/list ([i (in-list all-installers)]
@@ -192,14 +214,16 @@
        appropriate building block for all kinds of software, and to clarify how
        we view the license of Racket.}}})
 
-(define downloader-script
+(define (downloader-script package packages)
   @script/inline[type: 'text/javascript]{@||
     var do_jump, selection_changed;
+    var packages = [@(string-join (map (lambda (s) (format "\"~s\"" s)) packages) ", ")];
+    var current_package = "@|package|";
     (function() {
     // show the download panel, since JS is obviously working
     document.getElementById("download_panel").style.display = "block";
     //
-    var selector = document.getElementById("platform_selector");
+    var selector = document.getElementById("platform_selector_@|package|");
     // jump to the selected item
     do_jump = function() {
       location.href = selector[selector.selectedIndex].value;
@@ -240,6 +264,23 @@
     linux_expl_s = document.getElementById("linux_explain").style;
     selection_changed_timer = false;
     selection_changed = function() {
+      var package_selector = document.getElementById("package_selector");
+      var package = packages[package_selector.selectedIndex];
+      if (current_package != package) {
+         var panel = document.getElementById("platform_selector_panel_" + current_package);
+         panel.style.display = "none";
+         current_package = package;
+         panel = document.getElementById("platform_selector_panel_" + package);
+         panel.style.display = "block";
+         selector = document.getElementById("platform_selector_" + package);
+      }
+      var download_link = document.getElementById("download_link");
+      var selected = selector[selector.selectedIndex];
+      var path = selected.value;
+      download_link.href = path;
+      download_link.innerHTML = path.replace(/.*\//, "") + " (" + selected.getAttribute("x-installer-size") + ")";
+      var mirror_link = document.getElementById("mirror_link");
+      mirror_link.href = selected.getAttribute("x-mirror");
       if (selection_changed_timer) clearTimeout(selection_changed_timer);
       selection_changed_timer = setTimeout(do_selection_changed, 250);
     }
@@ -249,6 +290,7 @@
           "block" : "none";
     }
     //
+    function initialize_selector(selector) {
       var opts = selector.options;
       var len = opts.length;
       // get the order and a make a sorting function
@@ -270,12 +312,23 @@
       // sort the options, need to use a temporary array
       var tmps = new Array(len);
       for (var i=0@";" i<len@";" i++)
-      tmps[i]=[opts[i].text,opts[i].value,i];
+        tmps[i]=[opts[i].text,
+                 opts[i].value,
+                 opts[i].getAttribute("x-installer-size"),
+                 opts[i].getAttribute("x-mirror"),
+                 i];
       tmps.sort(isBetter);
       for (var i=0@";" i<len@";" i++) {
         opts[i].text  = tmps[i][0];
         opts[i].value = tmps[i][1];
+        opts[i].setAttribute("x-installer-size", tmps[i][2]);
+        opts[i].setAttribute("x-mirror", tmps[i][3]);
       }
       opts.selectedIndex = 0;
+    }
+    for (var i = 0; i < packages.length; i++) {
+      initialize_selector(document.getElementById("platform_selector_" + packages[i]));
+    }
+    selection_changed();
     })();
     @||})

pkgs/plt-services/meta/new-web/download/installer-pages.rkt

@@ -30,6 +30,12 @@
     (case mode
       [(only-platform) (a href: url platform type)]
       [(render-option) (option value: url platform type)]
+      [(render-direct-option) (option value: (let ([m (first mirrors)])
+                                               (string-append (mirror-url* m) path))
+                                      x-mirror: @url
+                                      x-installer-size: @human-size
+                                      platform type)]
+      [(render-package-option) (option value: url package)]
       [(#f) @a[href: url]{@title}]
       [else (error 'installer-page "unknown mode: ~e" mode)]))
   @page[#:site download-site