html: Generate only short issue URLs.
authorRicardo Wurmus <rekado@elephly.net>
Thu, 23 Apr 2020 05:45:45 +0000 (07:45 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Thu, 23 Apr 2020 05:45:45 +0000 (07:45 +0200)
mumi/web/view/html.scm

index 1549f58090dcc46facc87c403f90c1e0df1c1aa9..a7682abf8bd79ae7349b56bab7eb4186748fcec2 100644 (file)
@@ -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)))