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

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

@ -262,7 +262,7 @@
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))
@ -274,7 +274,7 @@
"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,11 +659,11 @@
(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?
@ -739,11 +739,11 @@
((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?