guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Link from the revision package page to the version history page

This commit is contained in:
Christopher Baines 2019-10-03 22:08:06 +01:00
parent fb301a8495
commit a104fbc5e1
2 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix-data-service/web/controller.scm
View File

@ -293,7 +293,10 @@
(let ((package-versions
(select-package-versions-for-revision conn
commit-hash
name)))
name))
(git-repositories-and-branches
(git-branches-with-repository-details-for-commit conn
commit-hash)))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
@ -306,6 +309,7 @@
#:sxml (view-revision-package commit-hash
name
package-versions
git-repositories-and-branches
#:path-base path-base
#:header-text header-text
#:header-link header-link)

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

@ -312,6 +312,7 @@
(define* (view-revision-package revision-commit-hash
name
versions
git-repositories-and-branches
#:key path-base
header-text
header-link)
@ -330,6 +331,19 @@
(@ (class "row"))
(div
(@ (class "col-sm-12"))
,(append-map
(match-lambda
(((id label url cgit-url-base) . branches)
(map (match-lambda
((branch-name datetime)
`(a (@ (class "btn btn-default btn-lg pull-right")
(href ,(simple-format
#f "/repository/~A/branch/~A/package/~A"
id branch-name name)))
,(simple-format #f "View ~A branch version history"
branch-name))))
branches)))
git-repositories-and-branches)
(h1 "Package " ,name)))
(div
(@ (class "row"))