From ff8f5462500ebdb003822763b47dbe0072514c52 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 10 Apr 2021 22:19:13 +0200
Subject: website: Add big-letter heading on the front page.
Suggested by Ricardo.
* website/haunt.scm (base-layout): Factorize front-page checks.
(read-markdown-page): Add special heading on the front page.
* website/index.md: Adjust heading.
* website/static/css/main.css (.front-page-heading): New entity.
---
haunt.scm | 28 +++++++++++++++++++++++-----
index.md | 3 +--
static/css/main.css | 5 +++++
3 files changed, 29 insertions(+), 7 deletions(-)
diff --git a/haunt.scm b/haunt.scm
index af3e5e8..bb02010 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -38,6 +38,9 @@
(define* (base-layout body #:key (title "") (meta '())
(posts '()) site)
+ (define front-page?
+ (assoc-ref meta 'frontpage))
+
`((doctype "html")
(html (@ (lang "en"))
(head
@@ -53,19 +56,19 @@
(title ,title))
(body
(div (@ (id "header")
- ,@(if (assoc-ref meta 'frontpage)
+ ,@(if front-page?
'((class "frontpage"))
'()))
(div (@ (id "header-inner")
(class "width-control"))
(a (@ (href ,(base-url "/")))
- (img (@ (class ,(if (assoc-ref meta 'frontpage)
+ (img (@ (class ,(if front-page?
"logo" "logo small"))
(alt "The logo of the GNU Assembly")
- (src ,(image-url (if (assoc-ref meta 'frontpage)
+ (src ,(image-url (if front-page?
"/logo.svg"
"/logo-small.svg"))))))
- ,@(if (assoc-ref meta 'frontpage)
+ ,@(if front-page?
'((div (@ (class "baseline"))
"Software for human empowerment."))
'())))
@@ -98,7 +101,22 @@
representation."
(let ((meta body (read-markdown (string-append %cwd "/" file))))
(base-layout `(div (@ (class "post"))
- (div (@ (class "post-body")) ,body))
+ (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))
#:meta meta
diff --git a/index.md b/index.md
index f6724e2..30056aa 100644
--- a/index.md
+++ b/index.md
@@ -4,8 +4,7 @@ frontpage: yes
**DRAFT**
-Welcome to the GNU Assembly! Wondering what this is? Here are the
-highlights:
+Wondering what this is? Here are the highlights:
- Gathering under a New Umbrella —
[We](https://wiki.gnu.tools/gnu:social-contract-endorsement),
diff --git a/static/css/main.css b/static/css/main.css
index f8c84a2..89ff430 100644
--- a/static/css/main.css
+++ b/static/css/main.css
@@ -38,6 +38,11 @@
@media all and (max-width:800px){html {font-size: 16px;}}
@media all and (max-width:760px){html {font-size: 16px;}}
+.front-page-heading {
+ font-size: 175%;
+ line-height: 150%;
+}
+
/*#ffbf2d*/
body,html {
--
cgit v1.2.1