diff options
Diffstat (limited to 'bffe/view/activity.scm')
| -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 |