FSF support banner on web page

[Ludovic Courtès]

Hello,

It was suggested that we should support the FSF’s fundraising on our web
page, which I think is a good idea.  The best I could do so far is the
attached patch, which borrows a bit from Guix.

I’ll be away for a few days, but it’d be great if someone could polish
and deploy the thing; even if it’s not perfect, it’s better than
nothing.  See <http://www.gnu.org/software/guile-rpc/> or similar for
the standard banner.

TIA.  :-)

Ludo’.

diff --git a/website/apps/base/components.scm b/website/apps/base/components.scm
index 2c72f22..8320fbf 100644
--- a/website/apps/base/components.scm
+++ b/website/apps/base/components.scm
@@ -38,24 +38,36 @@
 
 (define* (site-menu #:key (active-link "About"))
   "Return an SXML representation of the Web site's main menu bar."
-  `(header
-    (@ (id "site-menu"))
-    (h1
-     (a (@ (id "branding") (href ,(site-url)))
-       (span "GNU Guile")))
-    (nav
-     (@ (id "pages-box"))
-     (h2 "Menu: ")
-     (a (@ (class ,(get-page-link-class "Download" active-link))
-          (href ,(site-url "download/"))) "Download" " ")
-     (a (@ (class ,(get-page-link-class "Learn" active-link))
-          (href ,(site-url "learn/"))) "Learn" " ")
-     (a (@ (class ,(get-page-link-class "Libraries" active-link))
-          (href ,(site-url "libraries/"))) "Libraries" " ")
-     (a (@ (class ,(get-page-link-class "Contribute" active-link))
-          (href ,(site-url "contribute/"))) "Contribute" " ")
-     (a (@ (class ,(get-page-link-class "About" active-link))
-          (href ,(site-url))) "About"))))
+  `(div
+    (div (@ (class "message-box msg-info"))
+            (p " For thirty years, the Free Software Foundation has been seen
+as a guiding light for the free software movement, fighting for user
+freedom.")
+            (p (a (@ (href "http://www.fsf.org/appeal/";)) "Help keep our
+light burning brightly")
+               " by donating to push us towards our goal of raising $450,000
+by January 31st.")
+            ;; (div (@ (class "button-red")) "donate")
+            )
+
+    (header
+     (@ (id "site-menu"))
+     (h1
+      (a (@ (id "branding") (href ,(site-url)))
+         (span "GNU Guile")))
+     (nav
+      (@ (id "pages-box"))
+      (h2 "Menu: ")
+      (a (@ (class ,(get-page-link-class "Download" active-link))
+            (href ,(site-url "download/"))) "Download" " ")
+      (a (@ (class ,(get-page-link-class "Learn" active-link))
+            (href ,(site-url "learn/"))) "Learn" " ")
+      (a (@ (class ,(get-page-link-class "Libraries" active-link))
+            (href ,(site-url "libraries/"))) "Libraries" " ")
+      (a (@ (class ,(get-page-link-class "Contribute" active-link))
+            (href ,(site-url "contribute/"))) "Contribute" " ")
+      (a (@ (class ,(get-page-link-class "About" active-link))
+            (href ,(site-url))) "About")))))
 
 (define (get-page-link-class link-name active-link)
   "Return the appropriate class for LINK-NAME depending on ACTIVE-LINK."
@@ -111,3 +123,4 @@
       (li (a (@ (href ,(site-url "contribute/#bugs"))) "Report bugs"))
       (li (a (@ (href "https://savannah.gnu.org/git/?group=guile";))
             "Source code"))))))
+
diff --git a/website/static/base/css/site-menu.css 
b/website/static/base/css/site-menu.css
index f244b88..c34ba13 100644
--- a/website/static/base/css/site-menu.css
+++ b/website/static/base/css/site-menu.css
@@ -1,5 +1,23 @@
 /* Public domain 2015. All rights waived */
 
+.message-box {
+    color: white;
+    font-size: 12px;
+    padding: 20px;
+}
+
+.message-box > a:link, .message-box > a:visited {
+    border-color: white;
+    border-style: none none dotted none;
+    border-width: thin;
+    color: white;
+    text-decoration: none;
+}
+
+.msg-info {
+    background-color: #5FBCD3;
+}
+
 #site-menu {
     background-color: white;
     box-shadow: 0 0 5px #888;