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

Rework some of the table entries in the package through time tables

Browse source 
Try to clarify what the data means, make the revision commit more prominent
compared to the date and improve the display on smaller screens.
This commit is contained in:
Christopher Baines 2020-11-16 18:49:20 +00:00
parent c13a0ef4c1
commit 5fb3fa177d
1 changed files with 77 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -282,25 +282,47 @@
(@ (style "border-bottom: 0;"))
(td ,package-version)
(td (a (@ (href ,(string-append
"/revision/" first-guix-revision-commit)))
,first-datetime)
(br)
"/revision/" first-guix-revision-commit))
(title ,(simple-format
#f
"~A\n (Revision created at ~A)"
first-guix-revision-commit
first-datetime)))
(samp (@ (class "visible-xs visible-sm"))
,(string-take first-guix-revision-commit 8) "…")
(samp (@ (class "visible-md visible-lg"))
,first-guix-revision-commit))
(small (@ (style "display: block;")
(title
,(simple-format #f "Revision created at ~A" first-datetime)))
,first-datetime)
(a (@ (href ,(string-append
"/revision/"
first-guix-revision-commit
"/package/"
package-name "/" package-version)))
"(More information)"))
"(Package information)"))
(td (a (@ (href ,(string-append
"/revision/" last-guix-revision-commit)))
,last-datetime)
(br)
"/revision/" last-guix-revision-commit))
(title ,(simple-format
#f
"~A\n (Revision created at ~A)"
last-guix-revision-commit
last-datetime)))
(samp (@ (class "visible-xs visible-sm"))
,(string-take last-guix-revision-commit 8) "…")
(samp (@ (class "visible-md visible-lg"))
,last-guix-revision-commit))
(small (@ (style "display: block;")
(title
,(simple-format #f "Revision created at ~A" last-datetime)))
,last-datetime)
(a (@ (href ,(string-append
"/revision/"
last-guix-revision-commit
"/package/"
package-name "/" package-version)))
"(More information)")))
"(Package information)")))
(tr
(td
(@ (colspan 3)
@ -442,10 +464,10 @@
(thead
(tr
(th (@ (class "col-sm-1")) "Version")
(th (@ (class "col-sm-4")) "Derivation")
(th (@ (class "col-sm-6")) "Derivation")
(th (@ (class "col-sm-2")) "Builds")
(th (@ (class "col-sm-2")) "From")
(th (@ (class "col-sm-2")) "To")
(th (@ (class "col-sm-1")) "From")
(th (@ (class "col-sm-1")) "To")
(th (@ (class "col-sm-1")) "")
(th (@ (class "col-sm-1")) "")))
(tbody
@ -508,11 +530,29 @@
,(build-status-alist->build-icon build))))))
builds)))
(td (a (@ (href ,(string-append
"/revision/" first-guix-revision-commit)))
,first-datetime))
"/revision/" first-guix-revision-commit))
(title ,(simple-format
#f
"~A\n (Revision created at ~A)"
first-guix-revision-commit
first-datetime)))
(samp ,(string-take first-guix-revision-commit 8) "…"))
(small (@ (style "display: block;")
(title
,(simple-format #f "Revision created at ~A" first-datetime)))
,first-datetime))
(td (a (@ (href ,(string-append
"/revision/" last-guix-revision-commit)))
,last-datetime))
"/revision/" last-guix-revision-commit))
(title ,(simple-format
#f
"~A\n (Revision created at ~A)"
last-guix-revision-commit
last-datetime)))
(samp ,(string-take last-guix-revision-commit 8) "…"))
(small (@ (style "display: block;")
(title
,(simple-format #f "Revision created at ~A" last-datetime)))
,last-datetime))
(td
(@ (rowspan 4)
(style "vertical-align: middle;"))
@ -740,11 +780,29 @@
,(build-status-alist->build-icon build))))))
builds)))
(td (a (@ (href ,(string-append
"/revision/" first-guix-revision-commit)))
,first-datetime))
"/revision/" first-guix-revision-commit))
(title ,(simple-format
#f
"~A\n (Revision created at ~A)"
first-guix-revision-commit
first-datetime)))
(samp ,(string-take first-guix-revision-commit 8) "…"))
(small (@ (style "display: block;")
(title
,(simple-format #f "Revision created at ~A" first-datetime)))
,first-datetime))
(td (a (@ (href ,(string-append
"/revision/" last-guix-revision-commit)))
,last-datetime)))
"/revision/" last-guix-revision-commit))
(title ,(simple-format
#f
"~A\n (Revision created at ~A)"
last-guix-revision-commit
last-datetime)))
(samp ,(string-take last-guix-revision-commit 8) "…"))
(small (@ (style "display: block;")
(title
,(simple-format #f "Revision created at ~A" last-datetime)))
,last-datetime)))
(tr
(td
(@ (colspan 4)