website: Rearrange intro text.

* website/haunt.scm (read-markdown-page): Move intro text from here...
(base-layout): ...to here.
* website/static/css/main.css: Adjust header styles.
* website/static/images/noise-bg.png: New file.
* website/index.md: Remove tag line.

1 files changed, 14 insertions, 16 deletions

diff --git a/website/haunt.scm b/website/haunt.scm
index bb02010..289d0b5 100644
--- a/website/haunt.scm
+++ b/website/haunt.scm
@@ -68,9 +68,19 @@
                                 (src ,(image-url (if front-page?
                                                      "/logo.svg"
                                                      "/logo-small.svg"))))))
-                     ,@(if front-page?
-                           '((div (@ (class "baseline"))
-                                  "Software for human empowerment."))
+
+                     ;; Add the large-font welcoming message on the
+                     ;; front page.
+                     ,@(if (assoc-ref meta 'frontpage)
+                           `((p (@ (id "heading")
+                                   (class "front-page-heading"))
+                                "Welcome to the GNU Assembly!  We write "
+                                (a (@ (href "/en/documents/free-software"))
+                                   (emph "free software"))
+                                " — software that empowers users, "
+                                "giving them individual and collective control "
+                                "over their computing, from the operating "
+                                "system to applications."))
                            '())))
            (div (@ (id "menubar")
                    (class "width-control"))
@@ -103,19 +113,7 @@ representation."
     (base-layout `(div (@ (class "post"))
                        (div (@ (class "post-body"))
 
-                            ;; Add the large-font welcoming message on the
-                            ;; front page.
-                            ,@(if (assoc-ref meta 'frontpage)
-                                  `((p (@ (id "heading")
-                                          (class "front-page-heading"))
-                                       "Welcome to the GNU Assembly!  We write "
-                                       (a (@ (href "/en/documents/free-software"))
-                                          (emph "free software"))
-                                       " — software that empowers users, "
-                                       "giving them individual and collective control "
-                                       "over their computing, from the operating "
-                                       "system to applications."))
-                                  '())
+                            
                             ,body))
                  #:title (string-append "The GNU Assembly — "
                                         (assoc-ref meta 'title))