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 | c62d06a9d1f05d4d125b9d043d974073e206a67e (patch) | |
tree | 95a47414aa65a72be23f65cfbffd9c0c148eca09 /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 'haunt.scm')
-rw-r--r-- | haunt.scm | 30 |
1 files changed, 14 insertions, 16 deletions
@@ -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)) |