From 161c10bdc54632baf5df64ab759e03c8bc0bb90c Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 22 Dec 2019 17:37:54 +0000 Subject: [PATCH] Use the full width of the page for the derivation history table As it's quite big. Also remove the (More information) links, as they weren't useful. --- guix-data-service/web/repository/html.scm | 30 ++++++----------------- 1 file changed, 8 insertions(+), 22 deletions(-) diff --git a/guix-data-service/web/repository/html.scm b/guix-data-service/web/repository/html.scm index 610af22..ece92bf 100644 --- a/guix-data-service/web/repository/html.scm +++ b/guix-data-service/web/repository/html.scm @@ -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;"))