diff options
| author | rekado <rekado@elephly.net> | 2016-12-13 17:35:40 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2016-12-13 17:38:02 +0100 |
| commit | 66f9450e766b36ed3a85174705c6d4ba8b6e36d1 (patch) | |
| tree | df971c6b04d9df5db61cee48d910f8aa92e498b4 | |
| parent | 3ef3b0445241df1dc47c3717e63ffcf6267b3c70 (diff) | |
| download | guix-artwork-66f9450e766b36ed3a85174705c6d4ba8b6e36d1.tar guix-artwork-66f9450e766b36ed3a85174705c6d4ba8b6e36d1.tar.gz | |
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.
| -rw-r--r-- | website/www/download.scm | 10 | ||||
| -rw-r--r-- | 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 " |