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

Use the full width of the page for the derivation history table

Browse source 
As it's quite big. Also remove the (More information) links, as they weren't
useful.
This commit is contained in:
Christopher Baines 2019-12-22 17:37:54 +00:00
parent 2e0c1b4fcb
commit 161c10bdc5
1 changed files with 8 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -303,7 +303,7 @@
#:body
`(,(header)
(div
(@ (class "container"))
(@ (class "container-fluid"))
(div
(@ (class "row"))
(div
@ -331,10 +331,10 @@
(style "table-layout: fixed;"))
(thead
(tr
(th (@ (class "col-sm-2")) "Version")
(th (@ (class "col-sm-4")) "Derivation")
(th (@ (class "col-sm-2")) "From")
(th (@ (class "col-sm-2")) "To")
(th (@ (class "col-sm-1")) "Version")
(th (@ (class "col-sm-5")) "Derivation")
(th (@ (class "col-sm-1")) "From")
(th (@ (class "col-sm-1")) "To")
(th (@ (class "col-sm-1")) "")))
(tbody
,@(let* ((times-in-seconds
@ -372,27 +372,13 @@
,package-version))))
(td
(a (@ (href ,derivation-file-name))
,(display-store-item-short derivation-file-name)))
,(display-store-item derivation-file-name)))
(td (a (@ (href ,(string-append
"/revision/" first-guix-revision-commit)))
,first-datetime)
(br)
(a (@ (href ,(string-append
"/revision/"
first-guix-revision-commit
"/package/"
package-name "/" package-version)))
"(More information)"))
,first-datetime))
(td (a (@ (href ,(string-append
"/revision/" last-guix-revision-commit)))
,last-datetime)
(br)
(a (@ (href ,(string-append
"/revision/"
last-guix-revision-commit
"/package/"
package-name "/" package-version)))
"(More information)"))
,last-datetime))
(td
(@ (rowspan 4)
(style "vertical-align: middle;"))