diff options
author | Christopher Baines <mail@cbaines.net> | 2024-02-04 13:52:54 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-02-04 13:52:54 +0100 |
commit | f634a894e254f4c2e2341dc0f3912e9c01240f3c (patch) | |
tree | 1630816395b59fa43ee10d1faac4831336d15f9e /bffe/view | |
parent | 1c12da4e6f3c7d3ab557781769fb848354362748 (diff) | |
download | bffe-f634a894e254f4c2e2341dc0f3912e9c01240f3c.tar bffe-f634a894e254f4c2e2341dc0f3912e9c01240f3c.tar.gz |
Add support for derivation links
Diffstat (limited to 'bffe/view')
-rw-r--r-- | bffe/view/build.scm | 11 |
1 files changed, 9 insertions, 2 deletions
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 |