diff options
| author | Canan Talayhan <canan.t.talayhan@gmail.com> | 2021-04-23 11:19:32 +0300 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-04-23 12:00:03 +0100 |
| commit | fe97021cd012d7ed3e60e19b6833b93221ea431b (patch) | |
| tree | 8e5f9568d1a258798162a3ff3ee1ef63d0c19ee8 /guix-data-service/web/build-server | |
| parent | 6387f1bc67579485aeb11d5dfa8476ad906bef8c (diff) | |
| download | data-service-fe97021cd012d7ed3e60e19b6833b93221ea431b.tar data-service-fe97021cd012d7ed3e60e19b6833b93221ea431b.tar.gz | |
Set more informative page titles
For many pages where previously the title was just "Guix Data Service".
Signed-off-by: Christopher Baines <mail@cbaines.net>
Diffstat (limited to 'guix-data-service/web/build-server')
| -rw-r--r-- | guix-data-service/web/build-server/html.scm | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/guix-data-service/web/build-server/html.scm b/guix-data-service/web/build-server/html.scm index f16a570..541a960 100644 --- a/guix-data-service/web/build-server/html.scm +++ b/guix-data-service/web/build-server/html.scm @@ -27,7 +27,11 @@ (define (view-build query-parameters build required-failed-builds) + (define page-header "Build") + (layout + #:title + page-header #:body `(,(header) (div @@ -36,7 +40,7 @@ (@ (class "row")) (div (@ (class "col-sm-12")) - (h1 "Build"))) + (h1 ,page-header))) (div (@ (class "row")) ,@(match build @@ -98,7 +102,11 @@ '()))))) (define (view-build-servers build-servers) + (define page-header "Build servers") + (layout + #:title + page-header #:body `(,(header) (div @@ -107,7 +115,7 @@ (@ (class "row")) (div (@ (class "col-sm-12")) - (h2 "Build servers") + (h2 ,page-header) ,@(map (match-lambda ((id url lookup-all-derivations? lookup-builds?) @@ -127,7 +135,11 @@ build-servers))))))) (define (view-build-server build-server) + (define page-header "Build server") + (layout + #:title + page-header #:body `(,(header) (div @@ -136,7 +148,7 @@ (@ (class "row")) (div (@ (class "col-sm-12")) - (h2 "Build server") + (h2 ,page-header) ,(match build-server ((url lookup-all-derivations?) `(dl @@ -150,7 +162,11 @@ "No"))))))))))) (define (view-signing-key sexp) + (define page-header "Signing key") + (layout + #:title + page-header #:body `(,(header) (div @@ -159,5 +175,5 @@ (@ (class "row")) (div (@ (class "col-sm-12")) - (h2 "Signing key") + (h2 ,page-header) ,(sexp-div sexp))))))) |