From 51e40a0aa6e2e017e69206e29fd13a231db00f4d Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 24 Dec 2022 20:15:20 +0100 Subject: html: Do not repeat build-uri for QA URI. --- mumi/web/view/html.scm | 19 ++++++++----------- 1 file 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")) -- cgit v1.2.3