website: download: simplify download options.

2 files changed, 94 insertions, 53 deletions

diff --git a/website/static/base/css/download.css b/website/static/base/css/download.css
index fab1bc6..8477da6 100644
--- a/website/static/base/css/download.css
+++ b/website/static/base/css/download.css
@@ -1,9 +1,48 @@
 /*
     Public domain 2015 Luis Felipe López Acevedo. All rights waived.
     <felipe.lopez@openmailbox.org>
-   
-    NOTE  The default style is targeted at screens with a width less than
-          1024 pixels.
 */
 
 @import url("article.css");
+
+
+.download-box {
+    border-color: #CCC;
+    border-style: none none solid none;
+    border-width: thin;
+    color: #4D4D4D;
+    font-size: 0.9em;
+    padding: 10px;
+    text-align: center;
+}
+
+.hlink-download, .hlink-download:link, .hlink-download:visited {
+    background-color: #E6E6E6;
+    border-style: none;
+    border-radius: 5px;
+    color: black;
+    display: inline-block;
+    font-weight: bold;
+    margin: 5px;
+    padding: 5px 10px;
+}
+
+.hlink-download:active, .hlink-download:focus, .hlink-download:hover {
+    background-color: #F4BB15;
+}
+
+.hlink-signature {
+    display: inline-block;
+    margin: 0px 5px;
+}
+
+
+@media screen and (min-width: 800px) {
+    .download-box {
+        border-style: solid;
+        display: inline-block;
+        margin: 10px;
+        vertical-align: top;
+        width: 270px;
+    }
+}
diff --git a/website/www/download.scm b/website/www/download.scm
index 07d03cf..f9f0d45 100644
--- a/website/www/download.scm
+++ b/website/www/download.scm
@@ -31,25 +31,42 @@ dependencies.")
 (define (ftp-url file)
   (string-append "ftp://alpha.gnu.org/gnu/guix/" file))
 
-(define* (summary-box title
-                      #:key file description image manual)
-  `(div (@ (class "summary-box"))
-        (div (@ (class "text-center"))
-             (img (@ (src ,(image-url image))
-                     (alt ""))))
+(define (guixsd-files archs)
+  (map (lambda (arch)
+         (cons arch (ftp-url (string-append "guixsd-usb-install-"
+                                            (latest-guix-version) "." arch
+                                            "-linux.xz"))))
+       archs))
+
+(define (guix-files archs)
+  (map (lambda (arch)
+         (cons arch (ftp-url (string-append "guix-binary-" (latest-guix-version)
+                                            "." arch "-linux.tar.xz"))))
+       archs))
+
+(define (guix-source-files variants)
+  (map (lambda (variant)
+         (cons variant (ftp-url (string-append "guix-" (latest-guix-version)
+                                               ".tar.gz"))))
+       variants))
+
+(define* (download-box title
+                       #:key files description image manual)
+  `(div (@ (class "download-box"))
+        (img (@ (src ,(image-url image)) (alt "")))
         (h2 ,title)
         (p ,description)
-
-        (p (@ (class "text-center"))
-           (a (@ (href ,(ftp-url file))
-                 (class "hlink-yellow-boxed"))
-              "DOWNLOAD")
-           (br)
-           ;; FIXME: Size?
-           ;; "(140MB approx.)"
-           (br)
-           (a (@ (href ,(string-append (ftp-url file) ".sig")))
-              "Get signature"))
+        (p "Download options:")
+        ,(map (lambda (file)
+                `(a (@ (href ,(cdr file)) (class "hlink-download"))
+                   ,file))
+              files)
+        (p "Signatures: "
+           ,(map (lambda (file)
+                   `(a (@ (href ,(string-append (cdr file) ".sig"))
+                          (class "hlink-signature"))
+                      ,(string-append (car file))))
+             files))
         (p "See the "
            (a (@ (href ,(guix-url manual)))
               "installation instructions")
@@ -78,39 +95,24 @@ can be installed as an additional package manager on top of an installed
 Linux-based system.")
 
 		(div (@ (class "text-center"))
-                     ,@(map (lambda (arch)
-                              (summary-box (string-append "GuixSD "
-                                                          (latest-guix-version)
-                                                          " (" arch ")")
-                                           #:file (string-append
-                                                   "guixsd-usb-install-"
-                                                   (latest-guix-version)
-                                                   "." arch "-linux.xz")
-                                           #:description %usb-image-description
-                                           #:manual %usb-image-manual
-                                           #:image %guixsd-image))
-                            '("x86_64" "i686"))
-                     ,@(map (lambda (arch)
-                              (summary-box (string-append "GNU Guix "
-                                                          (latest-guix-version)
-                                                          " Binary (" arch ")")
-                                           #:file (string-append
-                                                   "guix-binary-"
-                                                   (latest-guix-version)
-                                                   "." arch "-linux.tar.xz")
-                                           #:description %binary-tarball-description
-                                           #:manual %binary-tarball-manual
-                                           #:image %guix-image))
-                            '("x86_64" "i686" "mips64el" "armhf"))
-                     ,(summary-box (string-append "GNU Guix "
-                                                  (latest-guix-version)
-                                                  " Source")
-                                   #:file (string-append "guix-"
-                                                         (latest-guix-version)
-                                                         ".tar.gz")
-                                   #:description %source-tarball-description
-                                   #:manual %source-tarball-manual
-                                   #:image %guix-image))
+             ,(download-box (string-append "GuixSD " (latest-guix-version))
+                            #:files (guixsd-files '("x86_64" "i686"))
+                            #:description %usb-image-description
+                            #:manual %usb-image-manual
+                            #:image %guixsd-image)
+             ,(download-box (string-append "GNU Guix " (latest-guix-version)
+                                           " Binary")
+                            #:files (guix-files '("x86_64" "i686" "mips64el"
+                                                  "armhf"))
+                            #:description %binary-tarball-description
+                            #:manual %binary-tarball-manual
+                            #:image %guix-image)
+             ,(download-box (string-append "GNU Guix " (latest-guix-version)
+                                           " Source")
+                            #:files (guix-source-files '("tarball"))
+                            #:description %source-tarball-description
+                            #:manual %source-tarball-manual
+                            #:image %guix-image))
 
 		(p "Source code for the Guix System Distribution USB
 installation images as well as GNU Guix can be found on the GNU ftp server for "