diff options
| -rw-r--r-- | guix-data-service/web/view/html.scm | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index c790769..e54f871 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -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))) |