From 863897a90a98b3d4e99281be4c132e0387f42666 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 11 Apr 2021 00:37:24 +0200 Subject: 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. --- website/haunt.scm | 30 ++++++++++++++---------------- 1 file changed, 14 insertions(+), 16 deletions(-) (limited to 'website/haunt.scm') 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)) -- cgit v1.2.1