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

Link to derivation comparison page from the compare/derivations page

Browse source
This commit is contained in:
Christopher Baines 2019-11-14 20:57:38 +00:00
parent e31f370de0
commit 78e830d91e
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
guix-data-service/web/compare/html.scm
View file

@ -557,7 +557,8 @@
(th "Version") (th "Version")
(th "System") (th "System")
(th "Target") (th "Target")
(th (@ (class "col-xs-5")) "Derivations"))) (th (@ (class "col-xs-5")) "Derivations")
(th "")))
(tbody (tbody
,@(append-map ,@(append-map
(match-lambda (match-lambda
@ -608,6 +609,20 @@
(span (@ (class "text-success glyphicon glyphicon-plus pull-left") (span (@ (class "text-success glyphicon glyphicon-plus pull-left")
(style "font-size: 1.5em; padding-right: 0.4em;"))) (style "font-size: 1.5em; padding-right: 0.4em;")))
,(and=> target-derivation-file-name display-store-item-short))) ,(and=> target-derivation-file-name display-store-item-short)))
'()))
(td (@ (style "vertical-align: middle;"))
,@(if (and base-derivation-file-name
target-derivation-file-name)
`((a (@ (class "btn btn-sm btn-default")
(title "Compare")
(href
,(string-append
"/compare/derivation?"
"base_derivation="
base-derivation-file-name
"&target_derivation="
target-derivation-file-name)))
"⇕ Compare"))
'())))))) '()))))))
system-and-versions))) system-and-versions)))