guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Link from a revision to the git repository page

Browse source
This commit is contained in:
Christopher Baines 2019-07-19 21:29:56 +01:00
parent 1f977f6c12
commit 1f1deac296
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/model/git-branch.scm
View file

@ -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

6
guix-data-service/web/view/html.scm
View file

@ -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)