From 66f9450e766b36ed3a85174705c6d4ba8b6e36d1 Mon Sep 17 00:00:00 2001 From: rekado Date: Tue, 13 Dec 2016 17:35:40 +0100 Subject: 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 " -- cgit v1.2.3