cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove the revision labels from the links

Browse source 
As that seems neater.
This commit is contained in:
Christopher Baines 2019-06-20 14:42:38 +02:00
parent 6e1a6c9808
commit f6ffcb5f02
1 changed files with 47 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

94
guix-data-service/web/view/html.scm
View file

@ -262,19 +262,19 @@
branches)) branches))
(td (a (@ (href ,(string-append (td (a (@ (href ,(string-append
"/revision/" commit))) "/revision/" commit)))
(samp ,commit) (samp ,commit))
" " " "
,(cond ,(cond
((not (string-null? id)) ((not (string-null? id))
'(span '(span
(@ (class "label label-success")) (@ (class "label label-success"))
"✓")) "✓"))
((member "failure" job-events) ((member "failure" job-events)
'(span (@ (class "label label-danger")) '(span (@ (class "label label-danger"))
"Failed to import data")) "Failed to import data"))
(else (else
'(span (@ (class "label label-default")) '(span (@ (class "label label-default"))
"No information yet")))))))) "No information yet")))))))
revisions)))))))) revisions))))))))
git-repositories-and-revisions))))) git-repositories-and-revisions)))))
@ -659,23 +659,23 @@
(a (@ (href ,(string-append "/branch/" name))) (a (@ (href ,(string-append "/branch/" name)))
,name)) ,name))
(td ,date) (td ,date)
(td ,(if (string=? commit "NULL") (td ,@(if (string=? commit "NULL")
'(samp "branch deleted") '((samp "branch deleted"))
`(a (@ (href ,(string-append `((a (@ (href ,(string-append
"/revision/" commit))) "/revision/" commit)))
(samp ,commit) (samp ,commit))
" " " "
,(cond ,(cond
(revision-exists? (revision-exists?
'(span '(span
(@ (class "label label-success")) (@ (class "label label-success"))
"✓")) "✓"))
((member "failure" job-events) ((member "failure" job-events)
'(span (@ (class "label label-danger")) '(span (@ (class "label label-danger"))
"Failed to import data")) "Failed to import data"))
(else (else
'(span (@ (class "label label-default")) '(span (@ (class "label label-default"))
"No information yet"))))))))) "No information yet")))))))))
branches-with-most-recent-commits))))))))) branches-with-most-recent-commits)))))))))
(define (view-branch branch-name query-parameters (define (view-branch branch-name query-parameters
@ -739,23 +739,23 @@
((commit date revision-exists? job-events) ((commit date revision-exists? job-events)
`(tr `(tr
(td ,date) (td ,date)
(td ,(if (string=? commit "NULL") (td ,@(if (string=? commit "NULL")
'(samp "branch deleted") '((samp "branch deleted"))
`(a (@ (href ,(string-append `((a (@ (href ,(string-append
"/revision/" commit))) "/revision/" commit)))
(samp ,commit) (samp ,commit))
" " " "
,(cond ,(cond
(revision-exists? (revision-exists?
'(span '(span
(@ (class "label label-success")) (@ (class "label label-success"))
"✓")) "✓"))
((member "failure" job-events) ((member "failure" job-events)
'(span (@ (class "label label-danger")) '(span (@ (class "label label-danger"))
"Failed to import data")) "Failed to import data"))
(else (else
'(span (@ (class "label label-default")) '(span (@ (class "label label-default"))
"No information yet"))))))))) "No information yet")))))))))
branch-commits))))))))) branch-commits)))))))))
(define (view-builds stats builds) (define (view-builds stats builds)