diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-06-02 10:26:37 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-06-02 10:26:37 +0100 |
| commit | ba394b3b431d84c08a55f2d981d850625202e6c5 (patch) | |
| tree | a747629f29225ff441bc5344a79d99919b144475 /guix-qa-frontpage/view | |
| parent | 94534933deebc31721024bd32bbb0d494c121fa9 (diff) | |
| download | qa-frontpage-ba394b3b431d84c08a55f2d981d850625202e6c5.tar qa-frontpage-ba394b3b431d84c08a55f2d981d850625202e6c5.tar.gz | |
Highlight when branches are out of date
Diffstat (limited to 'guix-qa-frontpage/view')
| -rw-r--r-- | guix-qa-frontpage/view/branch.scm | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/guix-qa-frontpage/view/branch.scm b/guix-qa-frontpage/view/branch.scm index b6cc81f..c2a02ec 100644 --- a/guix-qa-frontpage/view/branch.scm +++ b/guix-qa-frontpage/view/branch.scm @@ -10,7 +10,8 @@ master-branch-view)) (define (branch-view branch revisions derivation-changes-counts - substitute-availability) + substitute-availability + up-to-date-with-master) (define* (package-derivations-comparison-link system #:key build-change) (string-append @@ -41,6 +42,28 @@ td.bad { }")) #:body `((main + ,@(if (assq-ref up-to-date-with-master 'up-to-date?) + '() + `((p (@ (style ,(string-join + '("text-align: center;" + "font-weight: bold;" + "padding: 1rem;" + "max-width: 46rem;" + "border-width: 0.35em;" + "border-style: dashed;" + "border-color: red")))) + "To many changes (" + ,(assq-ref up-to-date-with-master 'changes) + " for " + (span (@ (style "font-family: monospace;")) + "x86_64-linux") + ") between " + (a (@ (href ,(string-append + "https://data.qa.guix.gnu.org/revision/" + (assq-ref revisions 'base)))) + "merge base") + " and master, this branch should be rebased or master merged in."))) + (h2 "Substitute availability") (div ,@(if substitute-availability |