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

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

@ -687,25 +687,9 @@
"Next page")))
'())))))
(define* (view-git-repository git-repository-id
label url cgit-url-base
branches-with-most-recent-commits)
(layout
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
(div
(@ (class "col-md-12"))
(h1 ,url)))
(div
(@ (class "row"))
(div
(@ (class "col-md-12"))
(h3 "Branches")
(table
(define (table/branches-with-most-recent-commits
git-repository-id branches-with-most-recent-commits)
`(table
(@ (class "table table-responsive"))
(thead
(tr
@ -740,7 +724,29 @@
(else
'(span (@ (class "label label-default"))
"No information yet")))))))))
branches-with-most-recent-commits)))))))))
branches-with-most-recent-commits))))
(define* (view-git-repository git-repository-id
label url cgit-url-base
branches-with-most-recent-commits)
(layout
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
(div
(@ (class "col-md-12"))
(h1 ,url)))
(div
(@ (class "row"))
(div
(@ (class "col-md-12"))
(h3 "Branches")
,(table/branches-with-most-recent-commits
git-repository-id
branches-with-most-recent-commits)))))))
(define (view-branch git-repository-id
branch-name query-parameters branch-commits)