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

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
Download patch file Download diff file Expand all files Collapse all files

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

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