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 | |
| parent | fb301a8495965e7559d357440b8c59ad275ef6bd (diff) | |
| download | data-service-a104fbc5e1cd1485c2ce97e555d91d28f3c6eb67.tar data-service-a104fbc5e1cd1485c2ce97e555d91d28f3c6eb67.tar.gz | |
Link from the revision package page to the version history page
| -rw-r--r-- | guix-data-service/web/controller.scm | 6 | ||||
| -rw-r--r-- | guix-data-service/web/view/html.scm | 14 |
2 files changed, 19 insertions, 1 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index e63a75d..13b315d 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -293,7 +293,10 @@ (let ((package-versions (select-package-versions-for-revision conn commit-hash - name))) + name)) + (git-repositories-and-branches + (git-branches-with-repository-details-for-commit conn + commit-hash))) (case (most-appropriate-mime-type '(application/json text/html) mime-types) @@ -306,6 +309,7 @@ #:sxml (view-revision-package commit-hash name package-versions + git-repositories-and-branches #:path-base path-base #:header-text header-text #:header-link header-link) 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")) |