diff options
author | Christopher Baines <mail@cbaines.net> | 2022-09-06 13:03:33 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-09-06 13:03:33 +0100 |
commit | 501aaf99454f8f91515b86135d3f9f58346c4a25 (patch) | |
tree | 1effbe81610d6dba746ceacb1550f2c260d870b2 /guix-qa-frontpage/view/util.scm | |
parent | 250502ad7c08f24356396a949e7267decae636d8 (diff) | |
download | qa-frontpage-501aaf99454f8f91515b86135d3f9f58346c4a25.tar qa-frontpage-501aaf99454f8f91515b86135d3f9f58346c4a25.tar.gz |
Fix the layout of the general-not-found and error-page pages
Diffstat (limited to 'guix-qa-frontpage/view/util.scm')
-rw-r--r-- | guix-qa-frontpage/view/util.scm | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/guix-qa-frontpage/view/util.scm b/guix-qa-frontpage/view/util.scm index ebbf5f6..ac1b912 100644 --- a/guix-qa-frontpage/view/util.scm +++ b/guix-qa-frontpage/view/util.scm @@ -307,23 +307,22 @@ header { (define (general-not-found header-text body) (layout #:body - `((div - (@ (class "container")) + `((main (h1 ,header-text) (p ,body))))) (define* (error-page #:optional error) (layout #:body - `((div (@ (class "container")) - (h1 "An error occurred") - (p "Sorry about that!") - ,@(if error - (match error - ((key . args) - `((b ,key) - (pre ,args)))) - '()))))) + `((main + (h1 "An error occurred") + (p "Sorry about that!") + ,@(if error + (match error + ((key . args) + `((b ,key) + (pre ,args)))) + '()))))) (define file-mime-types '(("css" . (text/css)) |