diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2021-04-11 00:37:24 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2021-04-11 01:07:21 +0200 |
commit | 863897a90a98b3d4e99281be4c132e0387f42666 (patch) | |
tree | ad2f530cdcd23c5224354d0bf6b0868ae488f03f /website/haunt.scm | |
parent | website: Add big-letter heading on the front page. (diff) |
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.
Diffstat (limited to '')
-rw-r--r-- | website/haunt.scm | 30 |
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 @@ | |||
68 | (src ,(image-url (if front-page? | 68 | (src ,(image-url (if front-page? |
69 | "/logo.svg" | 69 | "/logo.svg" |
70 | "/logo-small.svg")))))) | 70 | "/logo-small.svg")))))) |
71 | ,@(if front-page? | 71 | |
72 | '((div (@ (class "baseline")) | 72 | ;; Add the large-font welcoming message on the |
73 | "Software for human empowerment.")) | 73 | ;; front page. |
74 | ,@(if (assoc-ref meta 'frontpage) | ||
75 | `((p (@ (id "heading") | ||
76 | (class "front-page-heading")) | ||
77 | "Welcome to the GNU Assembly! We write " | ||
78 | (a (@ (href "/en/documents/free-software")) | ||
79 | (emph "free software")) | ||
80 | " — software that empowers users, " | ||
81 | "giving them individual and collective control " | ||
82 | "over their computing, from the operating " | ||
83 | "system to applications.")) | ||
74 | '()))) | 84 | '()))) |
75 | (div (@ (id "menubar") | 85 | (div (@ (id "menubar") |
76 | (class "width-control")) | 86 | (class "width-control")) |
@@ -103,19 +113,7 @@ representation." | |||
103 | (base-layout `(div (@ (class "post")) | 113 | (base-layout `(div (@ (class "post")) |
104 | (div (@ (class "post-body")) | 114 | (div (@ (class "post-body")) |
105 | 115 | ||
106 | ;; Add the large-font welcoming message on the | 116 | |
107 | ;; front page. | ||
108 | ,@(if (assoc-ref meta 'frontpage) | ||
109 | `((p (@ (id "heading") | ||
110 | (class "front-page-heading")) | ||
111 | "Welcome to the GNU Assembly! We write " | ||
112 | (a (@ (href "/en/documents/free-software")) | ||
113 | (emph "free software")) | ||
114 | " — software that empowers users, " | ||
115 | "giving them individual and collective control " | ||
116 | "over their computing, from the operating " | ||
117 | "system to applications.")) | ||
118 | '()) | ||
119 | ,body)) | 117 | ,body)) |
120 | #:title (string-append "The GNU Assembly — " | 118 | #:title (string-append "The GNU Assembly — " |
121 | (assoc-ref meta 'title)) | 119 | (assoc-ref meta 'title)) |