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

Extract out the branches with most recent commits table

Browse source 
As I'm thinking about using this on the index page.
This commit is contained in:
Christopher Baines 2019-07-22 20:36:40 +01:00
parent 219b1fd4ad
commit c23822e14d
1 changed files with 42 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -687,6 +687,45 @@
"Next page"))) "Next page")))
'()))))) '())))))
(define (table/branches-with-most-recent-commits
git-repository-id branches-with-most-recent-commits)
`(table
(@ (class "table table-responsive"))
(thead
(tr
(th (@ (class "col-md-3")) "Name")
(th (@ (class "col-md-2")) "Date")
(th (@ (class "col-md-7")) "Commit")))
(tbody
,@(map
(match-lambda
((name commit date revision-exists? job-events)
`(tr
(td
(a (@ (href ,(string-append
"/repository/" git-repository-id
"/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")))))))))
branches-with-most-recent-commits))))
(define* (view-git-repository git-repository-id (define* (view-git-repository git-repository-id
label url cgit-url-base label url cgit-url-base
branches-with-most-recent-commits) branches-with-most-recent-commits)
@ -705,42 +744,9 @@
(div (div
(@ (class "col-md-12")) (@ (class "col-md-12"))
(h3 "Branches") (h3 "Branches")
(table ,(table/branches-with-most-recent-commits
(@ (class "table table-responsive")) git-repository-id
(thead branches-with-most-recent-commits)))))))
(tr
(th (@ (class "col-md-3")) "Name")
(th (@ (class "col-md-2")) "Date")
(th (@ (class "col-md-7")) "Commit")))
(tbody
,@(map
(match-lambda
((name commit date revision-exists? job-events)
`(tr
(td
(a (@ (href ,(string-append
"/repository/" git-repository-id
"/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")))))))))
branches-with-most-recent-commits)))))))))
(define (view-branch git-repository-id (define (view-branch git-repository-id
branch-name query-parameters branch-commits) branch-name query-parameters branch-commits)