cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
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 (git-branches-with-repository-details-for-commit conn commit)
(define query (define query
" "
SELECT git_repositories.label, git_repositories.url, SELECT git_repositories.id, git_repositories.label,
git_repositories.cgit_url_base, git_repositories.url, git_repositories.cgit_url_base,
git_branches.name, git_branches.datetime git_branches.name, git_branches.datetime
FROM git_branches FROM git_branches
INNER JOIN git_repositories INNER JOIN git_repositories
@ -45,7 +45,7 @@ INNER JOIN git_repositories
WHERE git_branches.commit = $1") WHERE git_branches.commit = $1")
(group-list-by-first-n-fields (group-list-by-first-n-fields
3 4
(exec-query conn query (list commit)))) (exec-query conn query (list commit))))
(define* (most-recent-commits-for-branch conn git-repository-id (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") `((h3 "Git repositories")
,@(map ,@(map
(match-lambda (match-lambda
(((label url cgit-url-base) . branches) (((id label url cgit-url-base) . branches)
`((h4 ,url) `((a (@ (href ,(string-append
"/repository/" id)))
(h4 ,url))
,@(map ,@(map
(match-lambda (match-lambda
((name datetime) ((name datetime)