diff options
| -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 " |