Commit 499b760f authored by Anton Bachin's avatar Anton Bachin
Browse files

Lowercase GitHub Actions label and status

This is visually easier, as uppercased labels turn into camelcase when
appearing in a row of badges.

It is also consistent with existing practice on shields.io, and the
manual badge examples presently on the osh website.
parent 8be02a11
Pipeline #16524 failed
...@@ -122,16 +122,16 @@ let badge_github_workflow_status = ...@@ -122,16 +122,16 @@ let badge_github_workflow_status =
let open Ocb in let open Ocb in
let status, color = let status, color =
match status with match status with
| "success" -> ("Success", Color.Green) | "success" -> ("success", Color.Green)
| "failure" -> ("Failure", Color.Red) | "failure" -> ("failure", Color.Red)
| "neutral" -> ("Neutral", Color.Grey) | "neutral" -> ("neutral", Color.Grey)
| "cancelled" -> ("Cancelled", Color.Red) | "cancelled" -> ("cancelled", Color.Red)
| "skipped" -> ("Skipped", Color.Red) | "skipped" -> ("skipped", Color.Red)
| "timed_out" -> ("Timed out", Color.Red) | "timed_out" -> ("timed out", Color.Red)
| unknown -> (unknown, Color.Grey) | unknown -> (unknown, Color.Grey)
in in
let badge = let badge =
mk_badge ~label:"Build" ~color ~style:Style.Flat mk_badge ~label:"build" ~color ~style:Style.Flat
~label_color:Color.Black ~status ~scale:1. request ~label_color:Color.Black ~status ~scale:1. request
in in
Dream.respond ~headers:[ ("Content-Type", "image/svg+xml") ] badge Dream.respond ~headers:[ ("Content-Type", "image/svg+xml") ] badge
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment