diff options
author | Christopher Baines <mail@cbaines.net> | 2024-02-04 14:03:17 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-02-04 14:03:17 +0100 |
commit | 006b96a9ff41f5d8e639f93f81eeab87d204bd89 (patch) | |
tree | 753ff1a3fab8ac46c22597f36131a970478900e1 /bffe/view | |
parent | f634a894e254f4c2e2341dc0f3912e9c01240f3c (diff) | |
download | bffe-006b96a9ff41f5d8e639f93f81eeab87d204bd89.tar bffe-006b96a9ff41f5d8e639f93f81eeab87d204bd89.tar.gz |
Add support for tag links
Diffstat (limited to 'bffe/view')
-rw-r--r-- | bffe/view/build.scm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/bffe/view/build.scm b/bffe/view/build.scm index a9cf84a..ded00ef 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 derivation-link-target) +(define (build title build-details derivation-link-target tag-link-target) (layout #:title (string-append "Build " (assoc-ref build-details "uuid") " — " title) @@ -27,8 +27,13 @@ (dt "Tags") (dd (ul ,@(map (lambda (tag) - `(li ,(assoc-ref tag "key") ": " - ,(assoc-ref tag "value"))) + (let* ((key (assoc-ref tag "key")) + (value (assoc-ref tag "value")) + (link (tag-link-target key value build-details))) + (if link + `(a (@ (href ,link)) + (li ,key ": " ,value)) + `(li ,key ": " ,value)))) (vector->list (assoc-ref build-details "tags"))))) |