diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-03-19 08:23:11 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-03-19 08:23:11 +0000 |
| commit | 5985b5938b0cec4621bf93063b32513438761723 (patch) | |
| tree | 51c4e8ee941e2c28d0ca14052ec1fb9c750b107c | |
| parent | bfa7c26f039a14b32318518583671429e0255124 (diff) | |
| download | data-service-5985b5938b0cec4621bf93063b32513438761723.tar data-service-5985b5938b0cec4621bf93063b32513438761723.tar.gz | |
Fix the layout on the derivation and store item pages
| -rw-r--r-- | guix-data-service/web/view/html.scm | 26 |
1 files changed, 16 insertions, 10 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index d19ac37..4afd193 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -467,17 +467,21 @@ (@ (class "row")) (div (@ (class "col-sm-12")) - ,(display-store-item-title filename)) - ,@(map (lambda (derivation derivations-using-store-item) - `((div - (@ (class "row")) + ,(display-store-item-title filename))) + ,@(map (lambda (derivation derivations-using-store-item) + `((div + (@ (class "row")) + (div + (@ (class "col-sm-12")) (h4 "Derivation: ") ,(match derivation ((file-name output-id) `(a (@ (href ,file-name)) - ,(display-store-item file-name))))) + ,(display-store-item file-name)))))) + (div + (@ (class "row")) (div - (@ (class "row")) + (@ (class "col-sm-12")) (h2 "Derivations using this store item " ,(let ((count (length derivations-using-store-item))) (if (eq? count 100) @@ -490,9 +494,9 @@ ((file-name) `(li (a (@ (href ,file-name)) ,(display-store-item file-name))))) - derivations-using-store-item))))) - derivations - derivations-using-store-item-list)))))) + derivations-using-store-item)))))) + derivations + derivations-using-store-item-list))))) (define (view-derivation derivation derivation-inputs derivation-outputs builds) @@ -507,7 +511,9 @@ ((id file-name builder args env-vars system) `(div (@ (class "row")) - ,(display-store-item-title file-name)))) + (div + (@ (class "col-sm-12")) + ,(display-store-item-title file-name))))) (div (@ (class "row")) (div |