01/01: website: Move beta warning to GuixSD download box.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix-artwork.

commit 66f9450e766b36ed3a85174705c6d4ba8b6e36d1
Author: rekado <address@hidden>
Date:   Tue Dec 13 17:35:40 2016 +0100

    website: Move beta warning to GuixSD download box.
    
    * website/www/shared.scm (html-page-description): Move beta warning from 
here...
    * website/www/download.scm (%usb-image-description): ...to here.
---
 website/www/download.scm |   10 +++++++++-
 website/www/shared.scm   |    8 --------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/website/www/download.scm b/website/www/download.scm
index e8c58ef..5c64376 100644
--- a/website/www/download.scm
+++ b/website/www/download.scm
@@ -26,7 +26,15 @@
   #:export (download-page))
 
 (define %usb-image-description
-  "USB installer of the Guix System Distribution.")
+  `(div (div (@ (class "message-box msg-info"))
+             (span (@ (class "msg-label")) "Note ")
+             "The Guix System Distribution (GuixSD) is beta software, "
+             "which means it is "
+             (a (@ (href ,(base-url "manual/html_node/Limitations.html")))
+                "not production-ready")
+             ".  But you can "
+             (a (@ (href ,(base-url "contribute"))) "help") "!")
+        (p "USB installer of the Guix System Distribution.")))
 
 (define %usb-image-manual
   "manual/html_node/System-Installation.html")
diff --git a/website/www/shared.scm b/website/www/shared.scm
index 04be0f4..5f93cf7 100644
--- a/website/www/shared.scm
+++ b/website/www/shared.scm
@@ -63,14 +63,6 @@ Functional package management,")))
 
 (define (html-page-description)
   `(div
-    (div (@ (class "message-box msg-info"))
-         (span (@ (class "msg-label")) "Note ")
-         "The Guix System Distribution (GuixSD) is beta software, "
-         "which means it is "
-         (a (@ (href ,(base-url "manual/html_node/Limitations.html")))
-            "not production-ready")
-         ".  But you can "
-         (a (@ (href ,(base-url "contribute"))) "help") "!")
     ;; (div (@ (class "message-box donate-info"))
     ;;      (span (@ (class "msg-label")) "Donate ")
     ;;      "For Guix to grow we need to upgrade our hardware. Please consider 
"