guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Fix the layout on the derivation and store item pages

Browse source
This commit is contained in:
Christopher Baines 2019-03-19 08:23:11 +00:00
parent bfa7c26f03
commit 5985b5938b
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 16 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -467,17 +467,21 @@
(@ (class "row")) (@ (class "row"))
(div (div
(@ (class "col-sm-12")) (@ (class "col-sm-12"))
,(display-store-item-title filename)) ,(display-store-item-title filename)))
,@(map (lambda (derivation derivations-using-store-item) ,@(map (lambda (derivation derivations-using-store-item)
`((div `((div
(@ (class "row")) (@ (class "row"))
(div
(@ (class "col-sm-12"))
(h4 "Derivation: ") (h4 "Derivation: ")
,(match derivation ,(match derivation
((file-name output-id) ((file-name output-id)
`(a (@ (href ,file-name)) `(a (@ (href ,file-name))
,(display-store-item file-name))))) ,(display-store-item file-name))))))
(div
(@ (class "row"))
(div (div
(@ (class "row")) (@ (class "col-sm-12"))
(h2 "Derivations using this store item " (h2 "Derivations using this store item "
,(let ((count (length derivations-using-store-item))) ,(let ((count (length derivations-using-store-item)))
(if (eq? count 100) (if (eq? count 100)
@ -490,9 +494,9 @@
((file-name) ((file-name)
`(li (a (@ (href ,file-name)) `(li (a (@ (href ,file-name))
,(display-store-item file-name))))) ,(display-store-item file-name)))))
derivations-using-store-item))))) derivations-using-store-item))))))
derivations derivations
derivations-using-store-item-list)))))) derivations-using-store-item-list)))))
(define (view-derivation derivation derivation-inputs derivation-outputs (define (view-derivation derivation derivation-inputs derivation-outputs
builds) builds)
@ -507,7 +511,9 @@
((id file-name builder args env-vars system) ((id file-name builder args env-vars system)
`(div `(div
(@ (class "row")) (@ (class "row"))
,(display-store-item-title file-name)))) (div
(@ (class "col-sm-12"))
,(display-store-item-title file-name)))))
(div (div
(@ (class "row")) (@ (class "row"))
(div (div