01/01: website: Changed the header message to a donate message.

[Ludovic Courtès]

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

commit 3f75b0d5a0439832bbc70f7b9a0151fdc9b95916
Author: Roel Janssen <address@hidden>
Date:   Wed Dec 16 23:37:54 2015 +0100

    website: Changed the header message to a donate message.
    
    * website/www/shared.scm (html-page-description): Change the bar.
    * website/static/base/css/message-box.css: Add header bar specific style.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 website/static/base/css/message-box.css |   21 +++++++++++++++++++--
 website/www/shared.scm                  |   22 ++++++++++++++--------
 2 files changed, 33 insertions(+), 10 deletions(-)

diff --git a/website/static/base/css/message-box.css 
b/website/static/base/css/message-box.css
index 7606d67..0049c31 100644
--- a/website/static/base/css/message-box.css
+++ b/website/static/base/css/message-box.css
@@ -26,11 +26,28 @@
 .msg-info {
     background-color: #5FBCD3;
 }
-
+.donate-info {
+    background-color: #FFFFFF;
+    color: #000;
+}
 .msg-warning {
     background-color: #D35F5F;
 }
-
+.donate-button {
+    background-color: #F4BB15;
+    padding: 5px;
+    -webkit-border-radius: 5px;
+    -moz-border-radius: 5px;
+    border-radius: 5px;
+}
+.donate-button:hover {
+    background-color: #F7CB50;
+}
+.donate-info > a:link, .donate-info > a:visited {
+    color: #000;
+    font-weight: bold;
+    border: none;
+}
 .msg-label {
     font-weight: bold;
     padding-right: 10px;
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"))