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

Show links to the cgit pages for repositories on the index page

Browse source
This commit is contained in:
Christopher Baines 2019-07-22 21:11:09 +01:00
parent 05db0a87f9
commit 7f8ffb4bea
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/model/git-repository.scm
View file

@ -14,7 +14,7 @@
(exec-query
conn
(string-append
"SELECT id, label, url FROM git_repositories ORDER BY id ASC")))
"SELECT id, label, url, cgit_url_base FROM git_repositories ORDER BY id ASC")))
(define (select-git-repository conn id)
(match (exec-query

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

@ -233,12 +233,18 @@
(h1 "Guix Data Service")))
,@(map
(match-lambda
(((repository-id label url) . branches-with-most-recent-commits)
(((repository-id label url cgit-url-base) . branches-with-most-recent-commits)
`(div
(@ (class "row"))
(div
(@ (class "col-sm-12"))
(h3 ,url)
(h3 (@ (style "display: inline-block;"))
,url)
,@(if (string-null? cgit-url-base)
'()
`((a (@ (style "padding-left: 0.8em;")
(href ,cgit-url-base))
"(View cgit)")))
,(if (null? branches-with-most-recent-commits)
'(p "No branches")
(table/branches-with-most-recent-commits