diff options
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)) |