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))
(td (a (@ (href ,(string-append
"/revision/" commit)))
(samp ,commit)
(samp ,commit))
" "
,(cond
((not (string-null? id))
@ -274,7 +274,7 @@
"Failed to import data"))
(else
'(span (@ (class "label label-default"))
"No information yet"))))))))
"No information yet")))))))
revisions))))))))
git-repositories-and-revisions)))))
@ -659,11 +659,11 @@
(a (@ (href ,(string-append "/branch/" name)))
,name))
(td ,date)
(td ,(if (string=? commit "NULL")
'(samp "branch deleted")
`(a (@ (href ,(string-append
(td ,@(if (string=? commit "NULL")
'((samp "branch deleted"))
`((a (@ (href ,(string-append
"/revision/" commit)))
(samp ,commit)
(samp ,commit))
" "
,(cond
(revision-exists?
@ -739,11 +739,11 @@
((commit date revision-exists? job-events)
`(tr
(td ,date)
(td ,(if (string=? commit "NULL")
'(samp "branch deleted")
`(a (@ (href ,(string-append
(td ,@(if (string=? commit "NULL")
'((samp "branch deleted"))
`((a (@ (href ,(string-append
"/revision/" commit)))
(samp ,commit)
(samp ,commit))
" "
,(cond
(revision-exists?