From 888182e2d33b420ee3ae03f8c7b1a4f389ff57e9 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Thu, 23 Apr 2020 07:45:45 +0200 Subject: html: Generate only short issue URLs. --- mumi/web/view/html.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index 1549f58..a7682ab 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -403,7 +403,7 @@ failed to process associated messages.") `((ul (@ (class "merged")) "Merged with: " ,(map (lambda (id) - `(li (a (@ (href ,(string-append "/issue/" id))) + `(li (a (@ (href ,(string-append "/" id))) ,id))) ;; XXX: This field can either hold a ;; string of multiple ids, or a single @@ -418,7 +418,7 @@ failed to process associated messages.") `((ul (@ (class "blocks")) "Blocks: " ,(map (lambda (id) - `(li (a (@ (href ,(string-append "/issue/" id))) + `(li (a (@ (href ,(string-append "/" id))) ,id))) ;; XXX: This field can either hold a ;; string of multiple ids, or a single @@ -433,7 +433,7 @@ failed to process associated messages.") `((ul (@ (class "blockedby")) "Blocked by: " ,(map (lambda (id) - `(li (a (@ (href ,(string-append "/issue/" id))) + `(li (a (@ (href ,(string-append "/" id))) ,id))) ;; XXX: This field can either hold a ;; string of multiple ids, or a single @@ -570,7 +570,7 @@ s3.14 7 7 7 7-3.14 7-7-3.14-7-7-7z\ m1 3H6v5h2V4zm0 6H6v2h2v-2z"))))) '()) ,(if id - `(a (@ (href ,(string-append "/issue/" id))) + `(a (@ (href ,(string-append "/" id))) ,(bug-subject* bug)) (bug-subject* bug))) (td ,(date->string (bug-date bug))) -- cgit v1.2.3