diff options
Diffstat (limited to 'website/www')
-rw-r--r-- | website/www/shared.scm | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/website/www/shared.scm b/website/www/shared.scm index f77a494..0f290fa 100644 --- a/website/www/shared.scm +++ b/website/www/shared.scm @@ -62,14 +62,20 @@ Functional package management,"))) ,(if js `(script (@ (src ,(js-url js))) "") ""))) (define (html-page-description) - `(div (@ (class "message-box msg-info")) - (span (@ (class "msg-label")) "Note ") - "The Guix System Distribution (GuixSD) is alpha software, " - "which means it is " - (a (@ (href ,(base-url "manual/html_node/System-Installation.html#Limitations"))) - "not production-ready") - ". But you can " - (a (@ (href ,(base-url "contribute"))) "help") "!")) + `(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/System-Installation.html#Limitations"))) + "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 " + (a (@ (href "https://my.fsf.org/civicrm/contribute/transact?reset=1&id=50") + (class "donate-button")) "donating") " for the holidays!"))) (define (html-page-links) `(div (@ (id "header-box")) |