diff options
author | Christopher Baines <mail@cbaines.net> | 2019-07-19 21:29:56 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-07-19 21:29:56 +0100 |
commit | 1f1deac29609fb63abf0f0a9939157df23b651a3 (patch) | |
tree | e76e0c573954c999fd6a6bb013d6b25ed5184c30 | |
parent | 1f977f6c125e10061610dd62c7287e6e9448dea5 (diff) | |
download | data-service-1f1deac29609fb63abf0f0a9939157df23b651a3.tar data-service-1f1deac29609fb63abf0f0a9939157df23b651a3.tar.gz |
Link from a revision to the git repository page
-rw-r--r-- | guix-data-service/model/git-branch.scm | 6 | ||||
-rw-r--r-- | guix-data-service/web/view/html.scm | 6 |
2 files changed, 7 insertions, 5 deletions
diff --git a/guix-data-service/model/git-branch.scm b/guix-data-service/model/git-branch.scm index 94b00f3..5fe1bb5 100644 --- a/guix-data-service/model/git-branch.scm +++ b/guix-data-service/model/git-branch.scm @@ -36,8 +36,8 @@ ORDER BY datetime DESC") (define (git-branches-with-repository-details-for-commit conn commit) (define query " -SELECT git_repositories.label, git_repositories.url, - git_repositories.cgit_url_base, +SELECT git_repositories.id, git_repositories.label, + git_repositories.url, git_repositories.cgit_url_base, git_branches.name, git_branches.datetime FROM git_branches INNER JOIN git_repositories @@ -45,7 +45,7 @@ INNER JOIN git_repositories WHERE git_branches.commit = $1") (group-list-by-first-n-fields - 3 + 4 (exec-query conn query (list commit)))) (define* (most-recent-commits-for-branch conn git-repository-id diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 78a7183..8c34f05 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -426,8 +426,10 @@ `((h3 "Git repositories") ,@(map (match-lambda - (((label url cgit-url-base) . branches) - `((h4 ,url) + (((id label url cgit-url-base) . branches) + `((a (@ (href ,(string-append + "/repository/" id))) + (h4 ,url)) ,@(map (match-lambda ((name datetime) |