diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-12-06 09:32:12 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-12-06 09:32:12 +0000 |
| commit | 7eb92ba7d77699e8b40bd7d707924a2d95b4760c (patch) | |
| tree | 22675a982129a919655e7049e8af4eac4ab7dd3d /guix-qa-frontpage/view | |
| parent | 76f2082a57370acb315fd5620081bae8957eeac8 (diff) | |
| download | qa-frontpage-7eb92ba7d77699e8b40bd7d707924a2d95b4760c.tar qa-frontpage-7eb92ba7d77699e8b40bd7d707924a2d95b4760c.tar.gz | |
Add "View Git branch" link to the issue page
Diffstat (limited to 'guix-qa-frontpage/view')
| -rw-r--r-- | guix-qa-frontpage/view/issue.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/guix-qa-frontpage/view/issue.scm b/guix-qa-frontpage/view/issue.scm index 44b8d0f..11c7de2 100644 --- a/guix-qa-frontpage/view/issue.scm +++ b/guix-qa-frontpage/view/issue.scm @@ -75,6 +75,18 @@ td.bad { issue-number))) "View issue on issues.guix.gnu.org")) (li + (a (@ (href + ,(let ((branch-name + (simple-format #f "issue-~A" issue-number)) + (base-tag + (simple-format #f "base-for-issue-~A" issue-number))) + (simple-format + #f + "~A/log/?h=~A&qt=range&q=~A..~A" + "https://git.guix-patches.cbaines.net/guix-patches" + branch-name base-tag branch-name)))) + "View Git branch")) + (li (a (@ (href ,(assoc-ref series "web_url"))) "View series on Patchwork")) ,@(if comparison-link |