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

Add a list of the queued revisions to the index page

Browse source
This commit is contained in:
Christopher Baines 2019-03-03 18:15:29 +00:00
parent ffdd2416f4
commit 623347d835
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
3 changed files with 88 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -81,7 +81,7 @@
"source code here") ".")))))
#:extra-headers ,extra-headers))
(define (index guix-revisions)
(define (index guix-revisions queued-guix-revisions)
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
@ -89,48 +89,80 @@
`(,(header)
(div
(@ (class "container"))
(h1 "Guix Data Service")
(form (@ (id "compare")
(action "/compare"))
(div
(@ (class "form-group"))
(label (@ (for "base_commit"))
"Base commit")
(input (@ (type "text")
(class "form-control")
(id "base_commit")
(name "base_commit")
(placeholder "base commit"))))
(div
(@ (class "form-group"))
(label (@ (for "target_commit"))
"Target commit")
(input (@ (type "text")
(class "form-control")
(id "target_commit")
(name "target_commit")
(placeholder "target commit"))))
(button
(@ (type "submit")
(class "btn btn-lg btn-primary"))
"Compare"))
(h3 "Recent fetched revisions")
,(if (null? guix-revisions)
'(p "No revisions")
`(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-6")) "Source Repository URL")
(th (@ (class "col-md-6")) "Commit")))
(tbody
,@(map
(match-lambda
((id url commit store_path)
`(tr
(td ,url)
(td (samp ,commit)))))
guix-revisions))))))))
(div
(@ (class "row"))
(h1 "Guix Data Service"))
(div
(@ (class "row"))
(form
(@ (id "compare")
(action "/compare"))
(div
(@ (class "col-md-6"))
(div
(@ (class "form-group"))
(label (@ (for "base_commit"))
"Base commit")
(input (@ (type "text")
(class "form-control")
(id "base_commit")
(name "base_commit")
(placeholder "base commit"))))
(div
(@ (class "form-group"))
(label (@ (for "target_commit"))
"Target commit")
(input (@ (type "text")
(class "form-control")
(id "target_commit")
(name "target_commit")
(placeholder "target commit")))))
(div
(@ (class "col-md-6"))
(button
(@ (type "submit")
(class "btn btn-lg btn-primary"))
"Compare"))))
(div
(@ (class "row"))
(h3 "Recent fetched revisions")
,(if (null? guix-revisions)
'(p "No revisions")
`(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-6")) "Source Repository URL")
(th (@ (class "col-md-6")) "Commit")))
(tbody
,@(map
(match-lambda
((id url commit store_path)
`(tr
(td ,url)
(td (samp ,commit)))))
guix-revisions)))))
(div
(@ (class "row"))
(h3 "Queued revisions")
,(if (null? queued-guix-revisions)
'(p "No queued revisions")
`(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-4")) "Source Repository URL")
(th (@ (class "col-md-4")) "Commit")
(th (@ (class "col-md-4")) "Source")))
(tbody
,@(map
(match-lambda
((id url commit source)
`(tr
(td ,url)
(td (samp ,commit))
(td ,source))))
queued-guix-revisions)))))))))
(define (compare base-commit
target-commit