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/jobs | |
| 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/jobs')
| -rw-r--r-- | guix-data-service/web/jobs/html.scm | 29 |
1 files changed, 23 insertions, 6 deletions
diff --git a/guix-data-service/web/jobs/html.scm b/guix-data-service/web/jobs/html.scm index 82734d6..8146e3b 100644 --- a/guix-data-service/web/jobs/html.scm +++ b/guix-data-service/web/jobs/html.scm @@ -30,7 +30,11 @@ jobs-and-events recent-events show-next-page?) + (define page-header "Jobs") + (layout + #:title + page-header #:body `(,(header) (div @@ -40,7 +44,7 @@ (div (@ (class "col-sm-12")) (h1 (@ (style "display: inline-block;")) - "Jobs") + ,page-header) (div (@ (class "btn-group pull-right") (style "margin-top: 1.3rem;") @@ -189,7 +193,11 @@ (define (view-job-events query-parameters recent-events) + (define page-header "Recent events") + (layout + #:title + page-header #:body `(,(header) (div @@ -200,7 +208,7 @@ (@ (class "col-sm-12")) (a (@ (href "/jobs")) (h3 "Jobs")) - (h1 "Recent events"))) + (h1 ,page-header))) (div (@ (class "row")) (div @@ -256,7 +264,14 @@ recent-events))))))))) (define (view-job-queue jobs-and-events) + (define page-header + (string-append "Queued jobs (" + (number->string (length jobs-and-events)) + ")")) + (layout + #:title + page-header #:body `(,(header) (div @@ -267,9 +282,7 @@ (@ (class "col-sm-12")) (a (@ (href "/jobs")) (h3 "Jobs")) - (h1 "Queued jobs (" - ,(length jobs-and-events) - ")"))) + (h1 ,page-header))) (div (@ (class "row")) (div @@ -330,7 +343,11 @@ jobs-and-events))))))))) (define (view-job job-id query-parameters log) + (define page-header (string-append "Job " job-id)) + (layout + #:title + page-header #:body `(,(header) (div @@ -339,7 +356,7 @@ (@ (class "row")) (div (@ (class "col-sm-12")) - (h1 "Job " ,job-id))) + (h1 ,page-header))) (div (@ (class "row")) (div |