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

Link to the package pages from the comparison page

Browse source
This commit is contained in:
Christopher Baines 2019-07-29 21:10:41 +01:00
parent 91e0527b4d
commit ef123dcded
1 changed files with 61 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1234,8 +1234,9 @@
(@ (class "table")) (@ (class "table"))
(thead (thead
(tr (tr
(th (@ (class "col-md-3")) "Name") (th (@ (class "col-md-4")) "Name")
(th (@ (class "col-md-9")) "Version"))) (th (@ (class "col-md-4")) "Version")
(th (@ (class "col-md-4")) "")))
(tbody (tbody
,@(map ,@(map
(match-lambda (match-lambda
@ -1243,7 +1244,12 @@
('version . version)) ('version . version))
`(tr `(tr
(td ,name) (td ,name)
(td ,version)))) (td ,version)
(td (@ (class "text-right"))
(a (@ (href ,(string-append
"/revision/" target-commit
"/package/" name "/" version)))
"More information")))))
new-packages)))))) new-packages))))))
(div (div
(@ (class "row")) (@ (class "row"))
@ -1256,8 +1262,9 @@
(@ (class "table")) (@ (class "table"))
(thead (thead
(tr (tr
(th (@ (class "col-md-3")) "Name") (th (@ (class "col-md-4")) "Name")
(th (@ (class "col-md-9")) "Version"))) (th (@ (class "col-md-4")) "Version")
(th (@ (class "col-md-4")) "")))
(tbody (tbody
,@(map ,@(map
(match-lambda (match-lambda
@ -1265,14 +1272,20 @@
('version . version)) ('version . version))
`(tr `(tr
(td ,name) (td ,name)
(td ,version)))) (td ,version)
(td (@ (class "text-right"))
(a (@ (href ,(string-append
"/revision/" base-commit
"/package/" name "/" version)))
"More information")))))
removed-packages)))))) removed-packages))))))
(div (div
(@ (class "row")) (@ (class "row"))
(div (div
(@ (class "col-sm-12")) (@ (class "col-sm-12"))
(h3 "Version changes") (h3 "Version changes")
,(if (null? version-changes) ,(if
(null? version-changes)
'(p "No version changes") '(p "No version changes")
`(table `(table
(@ (class "table")) (@ (class "table"))
@ -1286,15 +1299,29 @@
((name . versions) ((name . versions)
`(tr `(tr
(td ,name) (td ,name)
(td (ul (td
,@(map (match-lambda (ul
,@(map
(match-lambda
((type . versions) ((type . versions)
`(li (@ (class ,(if (eq? type 'base) `(li (@ (class ,(if (eq? type 'base)
"text-danger" "text-danger"
"text-success"))) "text-success")))
,(string-join (ul
(vector->list versions) (@ (class "list-inline")
", ") (style "display: inline-block;"))
,@(map
(lambda (version)
`(li (a (@ (href
,(string-append
"/revision/"
(if (eq? type 'base)
base-commit
target-commit)
"/package/"
name "/" version)))
,version)))
(vector->list versions)))
,(if (eq? type 'base) ,(if (eq? type 'base)
" (old)" " (old)"
" (new)")))) " (new)"))))