diff options
| -rw-r--r-- | bffe/server.scm | 6 | ||||
| -rw-r--r-- | bffe/view/build.scm | 11 |
2 files changed, 13 insertions, 4 deletions
diff --git a/bffe/server.scm b/bffe/server.scm index 76f8212..65b49b5 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -418,7 +418,8 @@ event-source #:key title - (template-directory (%config 'template-dir))) + (template-directory (%config 'template-dir)) + (derivation-link-target (const #f))) (define handle-static-assets (if (string-prefix? (%store-prefix) @@ -520,7 +521,8 @@ (else (render-html #:sxml (build title - (json->scm body))))))) + (json->scm body) + derivation-link-target)))))) (('GET "agent" agent-id) (let ((response body diff --git a/bffe/view/build.scm b/bffe/view/build.scm index be33467..a9cf84a 100644 --- a/bffe/view/build.scm +++ b/bffe/view/build.scm @@ -7,7 +7,7 @@ #:use-module ((guix store) #:select (%store-prefix)) #:export (build)) -(define (build title build-details) +(define (build title build-details derivation-link-target) (layout #:title (string-append "Build " (assoc-ref build-details "uuid") " — " title) @@ -15,7 +15,14 @@ `((main (dl (dt "Derivation") - (dd ,(assoc-ref build-details "derivation-name")) + (dd ,(let* ((derivation-name (assoc-ref build-details "derivation-name")) + (derivation-link + (derivation-link-target derivation-name + build-details))) + (if derivation-link + `(a (@ (href ,derivation-link)) + ,derivation-name) + derivation-name))) (dt "Tags") (dd (ul |