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 (exec-query
conn conn
(string-append (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) (define (select-git-repository conn id)
(match (exec-query (match (exec-query

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

@ -233,12 +233,18 @@
(h1 "Guix Data Service"))) (h1 "Guix Data Service")))
,@(map ,@(map
(match-lambda (match-lambda
(((repository-id label url) . branches-with-most-recent-commits) (((repository-id label url cgit-url-base) . branches-with-most-recent-commits)
`(div `(div
(@ (class "row")) (@ (class "row"))
(div (div
(@ (class "col-sm-12")) (@ (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) ,(if (null? branches-with-most-recent-commits)
'(p "No branches") '(p "No branches")
(table/branches-with-most-recent-commits (table/branches-with-most-recent-commits