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;"))