diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-30 18:54:45 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-30 18:54:45 +0200 |
| commit | eb6aec6f07eec089c56ac345f513da4ed3c115a0 (patch) | |
| tree | 84d7aea4c9119d15a005af0cb358829664ade85a /bffe | |
| parent | 6e73bc321c16eb141797c04ef941806481c8ae71 (diff) | |
| download | bffe-eb6aec6f07eec089c56ac345f513da4ed3c115a0.tar bffe-eb6aec6f07eec089c56ac345f513da4ed3c115a0.tar.gz | |
Link to the build and agent pages from the activity page
Diffstat (limited to 'bffe')
| -rw-r--r-- | bffe/view/activity.scm | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/bffe/view/activity.scm b/bffe/view/activity.scm index 484aa36..669ebe2 100644 --- a/bffe/view/activity.scm +++ b/bffe/view/activity.scm @@ -247,8 +247,11 @@ table tr:nth-child(even) { ,(assoc-ref (assoc-ref agent "allocation_plan") "count")) - (h4 (@ (style "display: block;")) - ,(assoc-ref agent "name")) + (a (@ (href ,(string-append + "/agent/" + (assoc-ref agent "uuid")))) + (h4 (@ (style "display: block;")) + ,(assoc-ref agent "name"))) (div (@ (class "agent-builds") (id @@ -280,12 +283,16 @@ table tr:nth-child(even) { (if (> index 3) " hidden" "")))) - (span - (@ (class "monospace") - (style "display: block;")) - ,(abbreviate-derivation - (or (assoc-ref build "derivation_name") - (assoc-ref build "derivation-name")))) + (a (@ (href + ,(string-append + "/build/" + (assoc-ref build "uuid"))) + (style "display: block;")) + (span + (@ (class "monospace")) + ,(abbreviate-derivation + (or (assoc-ref build "derivation_name") + (assoc-ref build "derivation-name"))))) ,@(append-map (lambda (tag) `((span |