diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-06-20 14:42:38 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-06-20 14:42:38 +0200 |
| commit | f6ffcb5f024a3da7eb2e645750c943bf98cbb761 (patch) | |
| tree | f413b01a7e2e1f3f40caa51c6508a1bbb1724977 /guix-data-service/web/view | |
| parent | 6e1a6c9808a402ab314726f071b0eb2454fa81fe (diff) | |
| download | data-service-f6ffcb5f024a3da7eb2e645750c943bf98cbb761.tar data-service-f6ffcb5f024a3da7eb2e645750c943bf98cbb761.tar.gz | |
Remove the revision labels from the links
As that seems neater.
Diffstat (limited to 'guix-data-service/web/view')
| -rw-r--r-- | guix-data-service/web/view/html.scm | 94 |
1 files changed, 47 insertions, 47 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 4f8eed2..6e28837 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -262,19 +262,19 @@ branches)) (td (a (@ (href ,(string-append "/revision/" commit))) - (samp ,commit) - " " - ,(cond - ((not (string-null? id)) - '(span - (@ (class "label label-success")) - "✓")) - ((member "failure" job-events) - '(span (@ (class "label label-danger")) - "Failed to import data")) - (else - '(span (@ (class "label label-default")) - "No information yet")))))))) + (samp ,commit)) + " " + ,(cond + ((not (string-null? id)) + '(span + (@ (class "label label-success")) + "✓")) + ((member "failure" job-events) + '(span (@ (class "label label-danger")) + "Failed to import data")) + (else + '(span (@ (class "label label-default")) + "No information yet"))))))) revisions)))))))) git-repositories-and-revisions))))) @@ -659,23 +659,23 @@ (a (@ (href ,(string-append "/branch/" name))) ,name)) (td ,date) - (td ,(if (string=? commit "NULL") - '(samp "branch deleted") - `(a (@ (href ,(string-append - "/revision/" commit))) - (samp ,commit) - " " - ,(cond - (revision-exists? - '(span - (@ (class "label label-success")) - "✓")) - ((member "failure" job-events) - '(span (@ (class "label label-danger")) - "Failed to import data")) - (else - '(span (@ (class "label label-default")) - "No information yet"))))))))) + (td ,@(if (string=? commit "NULL") + '((samp "branch deleted")) + `((a (@ (href ,(string-append + "/revision/" commit))) + (samp ,commit)) + " " + ,(cond + (revision-exists? + '(span + (@ (class "label label-success")) + "✓")) + ((member "failure" job-events) + '(span (@ (class "label label-danger")) + "Failed to import data")) + (else + '(span (@ (class "label label-default")) + "No information yet"))))))))) branches-with-most-recent-commits))))))))) (define (view-branch branch-name query-parameters @@ -739,23 +739,23 @@ ((commit date revision-exists? job-events) `(tr (td ,date) - (td ,(if (string=? commit "NULL") - '(samp "branch deleted") - `(a (@ (href ,(string-append - "/revision/" commit))) - (samp ,commit) - " " - ,(cond - (revision-exists? - '(span - (@ (class "label label-success")) - "✓")) - ((member "failure" job-events) - '(span (@ (class "label label-danger")) - "Failed to import data")) - (else - '(span (@ (class "label label-default")) - "No information yet"))))))))) + (td ,@(if (string=? commit "NULL") + '((samp "branch deleted")) + `((a (@ (href ,(string-append + "/revision/" commit))) + (samp ,commit)) + " " + ,(cond + (revision-exists? + '(span + (@ (class "label label-success")) + "✓")) + ((member "failure" job-events) + '(span (@ (class "label label-danger")) + "Failed to import data")) + (else + '(span (@ (class "label label-default")) + "No information yet"))))))))) branch-commits))))))))) (define (view-builds stats builds) |