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

Improve the display of the show revision page

Browse source
This commit is contained in:
Christopher Baines 2019-03-16 19:01:21 +00:00
parent 33e6b35972
commit a0f4f153a9
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -237,7 +237,10 @@
(@ (class "container")) (@ (class "container"))
(div (div
(@ (class "row")) (@ (class "row"))
(h1 "Revision " (samp ,commit-hash))) (div
(@ (class "col-md-12"))
(h1 (@ (style "white-space: nowrap;"))
"Revision " (samp ,commit-hash))))
(div (div
(@ (class "row")) (@ (class "row"))
(div (div
@ -246,20 +249,20 @@
(strong (@ (class "text-center") (strong (@ (class "text-center")
(style "font-size: 2em; display: block;")) (style "font-size: 2em; display: block;"))
,packages-count) ,packages-count)
(a (@ (class "btn btn-default btn-lg") (a (@ (href ,(string-append "/revision/" commit-hash
(href ,(string-append "/revision/" commit-hash
"/packages"))) "/packages")))
"View packages")) "View packages"))
(div (div
(@ (class "col-md-6")) (@ (class "col-md-6"))
(h3 "Derivations") (h3 "Derivations")
(table (table
(@ (class "table")) (@ (class "table")
(style "white-space: nowrap;"))
(thead (thead
(tr (tr
(th "System") (th "System")
(th "Target") (th "Target")
(th "Distinct derivations"))) (th "Derivations")))
(tbody (tbody
,@(map (match-lambda ,@(map (match-lambda
((system target count) ((system target count)