diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-23 07:45:45 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-23 07:45:45 +0200 |
commit | 888182e2d33b420ee3ae03f8c7b1a4f389ff57e9 (patch) | |
tree | ae3e737171720c3e994a043d4b37d0f0323d15f6 | |
parent | 6da9ed7d2571dd624aad44530a16afcff1e0e90f (diff) |
html: Generate only short issue URLs.
-rw-r--r-- | mumi/web/view/html.scm | 8 |
1 files 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))) |