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

Neaten up how branches in Git repositories are linked to

Browse source
This commit is contained in:
Christopher Baines 2019-07-27 09:38:50 +01:00
parent a2caa3ea30
commit 08d9cbbfe3
1 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -388,13 +388,19 @@
,@(map
(match-lambda
((name datetime)
(if (string-null? cgit-url-base)
`(,name " at " ,datetime)
`(a (@ (href ,(string-append
cgit-url-base
"commit/?id="
commit-hash)))
,name " at " ,datetime))))
`(div
(a (@ (href ,(string-append "/repository/" id
"/branch/" name)))
,name)
" at " ,datetime
,@(if (string-null? cgit-url-base)
'()
`(" "
(a (@ (href ,(string-append
cgit-url-base
"commit/?id="
commit-hash)))
"(View cgit)"))))))
branches))))
git-repositories-and-branches)))