summaryrefslogtreecommitdiffstats
path: root/haunt.scm
diff options
context:
space:
mode:
Diffstat (limited to 'haunt.scm')
-rw-r--r--haunt.scm30
1 files changed, 14 insertions, 16 deletions
diff --git a/haunt.scm b/haunt.scm
index bb02010..289d0b5 100644
--- a/haunt.scm
+++ b/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))