[no subject]

[Ludovic Courtès]

branch: main
commit 0910b6bc86c7de3f7477ee71e5cc8ffe15950fc6
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Jun 28 11:12:09 2024 +0200

    http: Use vertical line rather than em dash in page titles.
    
    * src/cuirass/http.scm (evaluation-html-page, machine-page)
    (dashboard-page, url-handler): Use a vertical line rather than an em
    dash as the title separator.
---
 src/cuirass/http.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 44d98d4..2e4607b 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -314,7 +314,7 @@ Hydra format."
 
   (html-page
    (string-append "Evaluation " (number->string id)
-                  " — " specification)
+                  " | " specification)
    (evaluation-build-table evaluation
                            #:channels channels
                            #:checkouts checkouts
@@ -411,7 +411,7 @@ Hydra format."
                            (string=? name (worker-machine worker)))
                          (db-get-workers))))
     (html-page
-     (string-append name " — Machine Status")
+     (string-append name " | Machine Status")
      (machine-status name workers
                      (map (lambda (worker)
                             (filter (lambda (build)
@@ -507,7 +507,7 @@ passed, only display JOBS targeting this SYSTEM."
          (next (db-get-next-eval evaluation-id)))
     (html-page
      (string-append "Evaluation " (number->string evaluation-id)
-                    " — " spec-name " — Dashboard")
+                    " | " spec-name " | Dashboard")
      (evaluation-dashboard (db-get-evaluation evaluation-id)
                            systems
                            #:channels channels
@@ -920,7 +920,7 @@ bogus reply is received, return DEFAULT."
        (respond-html
         (html-page
          (string-append "Jobset " name
-                        " — Edit Specification")
+                        " | Edit Specification")
          (specification-edit spec)
          '()))))
 
@@ -969,8 +969,8 @@ bogus reply is received, return DEFAULT."
            (respond-html
             (html-page
              (string-append "Build " (number->string id)
-                            " — " (build-nix-name build)
-                            " — " (build-specification-name build))
+                            " | " (build-nix-name build)
+                            " | " (build-specification-name build))
              (build-details build dependencies products history
                             #:channels (specification-channels spec)
                             #:checkouts checkouts
@@ -993,9 +993,9 @@ bogus reply is received, return DEFAULT."
        (if (and log (file-exists? log))
            (respond-html
             (html-page
-             (string-append "Log — Build " (number->string id)
-                            " — " (build-nix-name build)
-                            " — " (build-specification-name build))
+             (string-append "Log | Build " (number->string id)
+                            " | " (build-nix-name build)
+                            " | " (build-specification-name build))
              (pretty-build-log id)
              `(((#:name . ,(string-append "Build #" (number->string id)))
                 (#:link