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

Link to the comparison page when viewing derivation history

Browse source
This commit is contained in:
Christopher Baines 2019-11-18 19:49:15 +00:00
parent f23ee71ea7
commit 62cabc80bf
1 changed files with 27 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

34
guix-data-service/web/repository/html.scm
View file

@ -332,10 +332,11 @@
(style "table-layout: fixed;")) (style "table-layout: fixed;"))
(thead (thead
(tr (tr
(th (@ (class "col-sm-3")) "Version") (th (@ (class "col-sm-2")) "Version")
(th (@ (class "col-sm-5")) "Derivation") (th (@ (class "col-sm-4")) "Derivation")
(th (@ (class "col-sm-4")) "From") (th (@ (class "col-sm-2")) "From")
(th (@ (class "col-sm-4")) "To"))) (th (@ (class "col-sm-2")) "To")
(th (@ (class "col-sm-1")) "")))
(tbody (tbody
,@(let* ((times-in-seconds ,@(let* ((times-in-seconds
(map (lambda (d) (map (lambda (d)
@ -360,7 +361,8 @@
first-guix-revision-commit first-guix-revision-commit
first-datetime first-datetime
last-guix-revision-commit last-guix-revision-commit
last-datetime)) last-datetime)
next-derivation-file-name)
`((tr `((tr
(@ (style "border-bottom: 0;")) (@ (style "border-bottom: 0;"))
,@(match version-column-entry ,@(match version-column-entry
@ -391,7 +393,21 @@
last-guix-revision-commit last-guix-revision-commit
"/package/" "/package/"
package-name "/" package-version))) package-name "/" package-version)))
"(More information)"))) "(More information)"))
(td
(@ (rowspan 4)
(style "vertical-align: middle;"))
,@(if next-derivation-file-name
`((a
(@ (class "btn btn-sm btn-default")
(title "Compare")
(href
,(string-append
"/compare/derivation"
"?base_derivation=" next-derivation-file-name
"&target_derivation=" derivation-file-name)))
"⇕ Compare"))
'())))
(tr (tr
(td (td
(@ (colspan 3) (@ (colspan 3)
@ -428,4 +444,8 @@
(rationalize margin-left 1) (rationalize margin-left 1)
(rationalize width 1))))))))))) (rationalize width 1)))))))))))
versions-list versions-list
derivations-by-revision-range)))))))))) derivations-by-revision-range
(append
(map second
(cdr derivations-by-revision-range))
'(#f))))))))))))