diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-10-03 22:08:06 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-10-03 22:08:06 +0100 |
| commit | a104fbc5e1cd1485c2ce97e555d91d28f3c6eb67 (patch) | |
| tree | fcc271a9e16cec1876608976fe63051e97090a23 /guix-data-service/web/view/html.scm | |
| parent | fb301a8495965e7559d357440b8c59ad275ef6bd (diff) | |
| download | data-service-a104fbc5e1cd1485c2ce97e555d91d28f3c6eb67.tar data-service-a104fbc5e1cd1485c2ce97e555d91d28f3c6eb67.tar.gz | |
Link from the revision package page to the version history page
Diffstat (limited to 'guix-data-service/web/view/html.scm')
| -rw-r--r-- | guix-data-service/web/view/html.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index b5c6175..3005af6 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -312,6 +312,7 @@ (define* (view-revision-package revision-commit-hash name versions + git-repositories-and-branches #:key path-base header-text header-link) @@ -330,6 +331,19 @@ (@ (class "row")) (div (@ (class "col-sm-12")) + ,(append-map + (match-lambda + (((id label url cgit-url-base) . branches) + (map (match-lambda + ((branch-name datetime) + `(a (@ (class "btn btn-default btn-lg pull-right") + (href ,(simple-format + #f "/repository/~A/branch/~A/package/~A" + id branch-name name))) + ,(simple-format #f "View ~A branch version history" + branch-name)))) + branches))) + git-repositories-and-branches) (h1 "Package " ,name))) (div (@ (class "row")) |