diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2022-12-24 20:15:20 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2022-12-24 20:15:20 +0100 |
| commit | 51e40a0aa6e2e017e69206e29fd13a231db00f4d (patch) | |
| tree | aea5f0bf90ccbc9e5317d6ac7d821765336dbae0 | |
| parent | 56a011454d99ad758c6f8a1444778838b2624b37 (diff) | |
html: Do not repeat build-uri for QA URI.
| -rw-r--r-- | mumi/web/view/html.scm | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index 6e031d2..def7477 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -453,23 +453,20 @@ failed to process associated messages.") message-number)))) ,(time->string (date message))))))) messages-with-numbers))) + (define* (qa-uri issue-id . path) + (build-uri (%config 'qa-scheme) + #:host (%config 'qa-host) + #:path (apply build-uri-path "issue" + (number->string issue-id) + path))) (define issue-details `(div (@ (class "issue-details")) (ul (li ,(status-tag bug)) (li - (a (@ (href ,(uri->string - (build-uri (%config 'qa-scheme) - #:host (%config 'qa-host) - #:path (build-uri-path "issue" - (number->string id)))))) - (img (@ (src ,(uri->string - (build-uri (%config 'qa-scheme) - #:host (%config 'qa-host) - #:path (build-uri-path "issue" - (number->string id) - "status-badge-medium.svg")))) + (a (@ (href ,(uri->string (qa-uri id)))) + (img (@ (src ,(uri->string (qa-uri id "status-badge-medium.svg"))) (alt "quality assurance status badge")))))) (details (@ (class "info")) |