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